我在IRIS数据集上开发了一个闪亮的Web应用程序。我想动态地做出预测。我有4个输入框,用户将在其中输入值,并根据我想在屏幕上打印预测值的模型。
我无法理解代码的含义和错误之处。我是闪亮R的新手。有人可以帮我解决它吗?
答案 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)
)}