将模型加载到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)