Использование модели Keras в составе приложения Shiny

Question

Итак, моя цель здесь состоит в том, чтобы создать приложение Shiny, которое принимает вводимые пользователем данные, превращает их в матрицу, а затем использует предварительно сохраненную модель Кераса (в основном сохраненные веса), чтобы предсказать определенную переменную его (и распечатать). , Я новичок в Keras и Shiny, поэтому буду признателен за любую помощь. Моя программа правильно отображает вводимые пользователем данные, но оценивает и распечатывает выходные данные там, где начинаются проблемы. Любая помощь будет оценена! Код ниже:

server <- function(input, output) {
  hisdata <- matrix(cbind(input$VK_001, input$VK_002, input$VK_003, input$VK_004,input$VK_005,input$VK_006,input$VK_006, input$VK_007, input$VK_008, input$VK_009,input$VK_010,input$VK_011, input$VK_012, input$VK_013,input$VK_015, input$VK_017, input$VK_018, input$VK_021, input$VK_022, input$VK_024, input$VK_025, input$VK_027, input$VK_028, input$VK_030, input$VK_031, input$VK_033, input$VK_034, input$VK_036, input$VK_037, input$VK_039, input$VK_040, input$VK_041))
  test_data <- hisdata
  model <- load_model_hdf5("my_model_bft_003.h5")
  test_predictions <- model %>% predict(test_data)
  output$oid1 <- renderPrint({x <- test_predictions[ , 1]
  print(x)
  })
}
ui <- fluidPage(

  # App title ----
  titlePanel("Shiny + KEras!"),

  # Sidebar layout with input and output definitions ----
  sidebarLayout(

    # Sidebar panel for inputs ----
    sidebarPanel(

      # Input: numeric----

      numericInput("VK_001", "Value:", 10, min = 1),
      numericInput("VK_002", "Value:", 10, min = 1),
      numericInput("VK_003", "Value:", 10, min = 1),
      numericInput("VK_004", "Value:", 10, min = 1),
      numericInput("VK_005", "Value:", 10, min = 1),
      numericInput("VK_006", "Value:", 10, min = 1),
      numericInput("VK_007", "Value:", 10, min = 1),
      numericInput("VK_008", "Value:", 10, min = 1),
      numericInput("VK_009", "Value:", 10, min = 1),
      numericInput("VK_010", "Value:", 10, min = 1),
      numericInput("VK_011", "Value:", 10, min = 1),
      numericInput("VK_012", "Value:", 10, min = 1),
      numericInput("VK_013", "Value:", 10, min = 1),
      numericInput("VK_015", "Value:", 10, min = 1),
      numericInput("VK_017", "Value:", 10, min = 1),
      numericInput("VK_018", "Value:", 10, min = 1),
      numericInput("VK_021", "Value:", 10, min = 1),
      numericInput("VK_022", "Value:", 10, min = 1),
      numericInput("VK_024", "Value:", 10, min = 1),
      numericInput("VK_025", "Value:", 10, min = 1),
      numericInput("VK_027", "Value:", 10, min = 1),
      numericInput("VK_028", "Value:", 10, min = 1),
      numericInput("VK_030", "Value:", 10, min = 1),
      numericInput("VK_031", "Value:", 10, min = 1),
      numericInput("VK_033", "Value:", 10, min = 1),
      numericInput("VK_034", "Value:", 10, min = 1),
      numericInput("VK_036", "Value:", 10, min = 1),
      numericInput("VK_037", "Value:", 10, min = 1),
      numericInput("VK_039", "Value:", 10, min = 1),
      numericInput("VK_040", "Value:", 10, min = 1),
      numericInput("VK_041", "Value:", 10, min = 1)
    ),

  # Main panel for displaying outputs ----
  mainPanel(
    h4('Predicted values'),
    verbatimTextOutput("oid1"))

  )
)
shinyApp(ui = ui, server = server)

Желаемый результат - вектор значений 1x1 (прогнозируемое значение). Вход состоит из матрицы числовых значений (целых чисел) от 1 до 10 (1 строка, 32 столбца) от 1 до 10.

Answer 1

Существует пакетный вызов R reticulate, который позволяет использовать код Python в R.

library(reticulate)

keras <- import("keras")
# '$' in R is equal to '.' in python
# Equivalent to model = keras.models.load_model("my_model_bft_003.h5") in python
model <- keras$models$load_model("my_model_bft_003.h5")
# Equivalent to model.predict(test_data)  in python
test_predictions <- model$predict(test_data)