Chargement d'un modèle dans Shiny

Question

J'ai un fit à partir d'un xgboost. Je voudrais faire une application brillante qui prend simplement des valeurs d'entrée et des sorties de prédictions. Sur mon bureau j'ai predict(fit,data). Est-il possible de charger l'objet fit dans brillant? Je préférerais ne pas avoir à télécharger nos données, recycler le modèle, puis émettre une prédiction sur le serveur. Je veux essentiellement une application brillante qui affiche simplement les résultats de predict(fit,data), où l'ajustement est téléchargé et les données sont entrées par l'utilisateur. Toutes les ressources/liens sur la façon de le faire serait utile.

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)