预测动作按钮的点击(发光仪表板)

时间:2018-11-16 08:38:28

标签: r shiny shinydashboard shiny-reactivity

我在IRIS数据集上开发了一个闪亮的Web应用程序。我想动态地做出预测。我有4个输入框,用户将在其中输入值,并根据我想在屏幕上打印预测值的模型。

这是我的代码: code

在单击“预测”操作按钮时,它给出以下输出: output

我无法理解代码的含义和错误之处。我是闪亮R的新手。有人可以帮我解决它吗?

1 个答案:

答案 0 :(得分:0)

我已解决问题!!如果有人遇到同一问题并寻找答案,请在此处发布答案。

没有从用户输入中填充数据框。这是我的操作方式:

observeEvent(input$go, {
frames <- cbind(Sepal.Length=as.numeric(input$sl),
Sepal.Width=as.numeric(input$sw),Petal.Length=as. 
numeric(input$pl),Petal.Width=as.numeric(input$pw))
frames <- data.frame(frames)
model <- load(file = "irisn.rda")
dt <- data.frame(Predicted = predict(get(model), frames))
output$predvalue <- renderPrint(dt)
)}