预测动作按钮点击（shinydashboard）

Question

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

这是我的代码：

单击 'Predict' 操作按钮时，它会给我以下输出：

我无法理解它的含义以及我的代码哪里出错了。我是 shiny R 的新手。有人可以帮我解决吗？

Answer 1

我解决了这个问题！！在这里发布答案以防有人遇到同样的问题并查找答案。

数据框未从用户输入中填充。这是我的做法：

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)
)}

预测动作按钮点击（shinydashboard）

Predict on action button click (shinydashboard)

r

shiny

shinydashboard

shiny-reactivity