在测试数据上显示模型摘要（R Shiny App）答案

【问题标题】：Showing summary of model on test data (R Shiny App)在测试数据上显示模型摘要（R Shiny App）
【发布时间】：2018-10-13 16:19:55
【问题描述】：

我是 R Shiny 的新手。我创建了一个简单的线性回归模型并使用

保存它

save(regressor , file = 'SimpleLinearRegression.rda')

现在我创建了一个 Shiny R 应用程序，用户可以在其中上传文件（测试数据），我希望我保存的模型能够加载并在测试数据上运行。然后，我想显示模型的摘要。

到目前为止我有这个：

output$modelSummary <- renderPrint({
model <- load(file = "SimpleLinearRegression.rda",.GlobalEnv)  })

现在，如何在我的测试数据上运行它？即上传的文件。

【问题讨论】：

标签： r shiny

【解决方案1】：

我使用以下代码解决了它：

output$modelSummary <- renderPrint({
req(input$file1)
df <- read.csv(input$file1$datapath,
               header = input$header,
               sep = input$sep,
               quote = input$quote)
model <- load(file = "SimpleLinearRegression.rda")
YE <- data.frame(YearsExperience = df$YearsExperience)
dat2 <- data.frame(YE, Predicted = predict(get(model), YE))
print(merge(df, dat2, by = 'YearsExperience', all.y = TRUE)) })

【讨论】：