KerasTuneR 只打印初試的 output

Question

KerasTuneR 中的fit_tuner function 在 Rstudio 中使用時，只打印第一次試用的進度。 下面的簡化代碼

library(tidyverse)
library(tensorflow)
library(keras)
library(kerastuneR)
library(ggplot2)

x_data <- matrix(data = runif(500,0,1),nrow = 50,ncol = 5)
y_data <-  ifelse(runif(50,0,1) > 0.6, 1L,0L) %>% as.matrix()

x_data2 <- matrix(data = runif(500,0,1),nrow = 50,ncol = 5)
y_data2 <-  ifelse(runif(50,0,1) > 0.6, 1L,0L) %>% as.matrix()

hp = HyperParameters()
hp$Int('num_layers', 5L, 20L, 2L)
hp$Int('units', 60L, 160L, 10L)

build_model <- function(hp) { 
  
  model <- keras_model_sequential() %>%
    layer_dense(units = hp$get('units'), activation = 'relu', input_shape = 5)
  
  for (i in 1:hp$get('num_layers')) { 
    model %>% 
      layer_dense(units = hp$get('units'), activation = 'relu')
  }
  
  model %>% layer_dense(units = 1)
  
  model %>% compile(optimizer = 'adam', 
                    loss = 'binary_crossentropy', 
                    metrics = c('accuracy'))
  
  return(model)
  
}

tuner = RandomSearch(
  hypermodel =  build_model,
  max_trials = 3,
  executions_per_trial = 2,
  hyperparameters = hp,
  tune_new_entries = T,
  objective = 'val_accuracy',
  #directory = 'C:/Users/Penelope/Desktop/NN_models/',
  #project_name = 'BigFoot2', 
  overwrite = TRUE
)

tuner %>% fit_tuner(x = x_data, y = y_data, 
                    epochs = 2, 
                    validation_data = list(x_data2, y_data2))

print("Completed")

應該為每次試驗打印 output ，但它只打印這個：

Search: Running Trial #1

Value             |Best Value So Far |Hyperparameter
13                |?                 |num_layers
110               |?                 |units

Epoch 1/2
2/2 [==============================] - 1s 220ms/step - loss: 4.5302 - accuracy: 0.6000 - val_loss: 1.5124 - val_accuracy: 0.6000
Epoch 2/2
2/2 [==============================] - 0s 26ms/step - loss: 1.4636 - accuracy: 0.6000 - val_loss: 1.1391 - val_accuracy: 0.6000
Epoch 1/2
2/2 [==============================] - 1s 166ms/step - loss: 2.3739 - accuracy: 0.6000 - val_loss: 1.3020 - val_accuracy: 0.6000
Epoch 2/2
2/2 [==============================] - 0s 21ms/step - loss: 1.2651 - accuracy: 0.6000 - val_loss: 0.9689 - val_accuracy: 0.6000

有趣的是，它從不打印“已完成”，即使這是我代碼的最后一行。

如果我直接在 R (Rx64 4.1.2) 中運行它，它會打印所有 output （就像一個巨大的轉儲，而不是逐行）。

這是一個已知問題，我該如何解決？ 提前致謝。

Answer 1

R 工作室無法與 Python 交互 - 它們是兩種不同的語言，所以這不是 @Quinten 建議的。 問題一定出在 Keras 代碼本身的 R 版本上。