将模型加载到 Shiny

Question

我有一个来自 xgboost 的fit。我想制作一个闪亮的应用程序，它只接受输入值并输出预测。在我的桌面上我有predict(fit,data)。是否可以将fit 对象加载到闪亮中？我宁愿不必上传我们的数据，重新训练模型，然后在服务器上输出预测。我本质上想要一个闪亮的应用程序，它只输出来自predict(fit,data) 的结果，其中上传拟合并由用户输入数据。任何有关如何执行此操作的资源/链接都会有所帮助。

Answer 1

my_local_file.rmd

fit<-xgboost(..args..)
save(fit, file = "../my_shiny_app/my-fitted-boost.rda")

my_shiny_app.R

library(xgboost)
fit_boost <- load(file = "my-fitted-boost.rda",.GlobalEnv)
predict(fit_boost, data)