将函数输出发送到 server.R 中的 ui.R 时接收 NULL

Question

我的 server.R 代码：

rf <- randomForest(mpg ~., data=my_data)

shinyServer( function(input, output) {

    df_list <- reactive ({ c(as.numeric(input$inputA), as.numeric(input$inputB), as.numeric(input$inputC), as.numeric(input$inputD)) })

    df <- reactive ({ as.data.frame(df_list) })  

    reactive ({ colnames(df) <- c("A", "B", "C", "D") })

    prediction <- reactive({ predict(rf, df) })

    result <- reactive({as.numeric(prediction)})

    output$predictE <- reactive ({result})

    })

我的 ui.R 代码：

library(shiny)

shinyUI(pageWithSidebar (
    headerPanel("Prediction"),
    sidebarPanel(
        numericInput(inputId="inputA", label = "", value = 1.0),
        numericInput(inputId="inputB", label = "", value = 1.0),
        numericInput(inputId="inputC", label = "", value = 1.0),
        numericInput(inputId="inputD", label = "", value= 1.0),
        submitButton("Submit")

      ),
    mainPanel(
      p('Output'),
      textOutput('predictE')
    )  
    ) )

我正在尝试从 ui.R 中获取一些值，并使用它们来生成基于 RF 模型的预测，并将输出发回。

我可以毫无问题地将 input$inputA 发送回 ui.R，因为我测试了 output$predictE

如果我在 shinyServer 函数内执行 R 命令行中的步骤，预测会产生预期的结果。

不知道哪里出错了。

Answer 1

您似乎并没有真正理解reactive 是什么。我建议你关注tutorial。但是，这里似乎您不需要任何反应，而您需要以某种方式呈现输出。试试这个：

rf <- randomForest(mpg ~., data=my_data)
shinyServer( function(input, output) {

output$predictE <- renderText({
  df_list <-c(as.numeric(input$inputA), as.numeric(input$inputB), as.numeric(input$inputC), as.numeric(input$inputD))
  df <- as.data.frame(df_list) 
  colnames(df) <- c("A", "B", "C", "D")
  prediction <- predict(rf, df)
  result <- as.numeric(prediction)
  result
})
})