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 版本上。