質問
私は光沢のあるアプリを作成し、私の出力の1つはユーザーの.rdataファイルとして最もよく保存されます。
私は他のさまざまな形式でデータをダウンロードすることができますが、.rdataの操作方法はわかりません。Rオブジェクトを保存するための代替方法もここでは問題ありません。サーバー側のダミーコードは次のようになります。
# Make widget
widget <- 1:42
# Download widget
output$widget <- downloadHandler(
filename=paste0("widget_", Sys.Date(), ".RData"),
content=function(file){
save(widget), file=file)
}
)
.
ダウンロードボタンをクリックすることができ、ウィンドウを更新できますが、ダウンロードキューにはアイテムが入れられません。
解決
.RDATAフォーマットでランダムフォレストモデルを保存しようとしました。以下のコードは私のために働いた。同じことがあなたのために働くことを願っています。
ui.r
DownloadButton( 'downloadmodel'、 'ダウンロードRFモデル'、class="dlbutton")
server.r
ステップ1。無効機能を保存するためのReactiveValueを作成し、私の場合はランダムフォレストモデルRF1()
# Create a reactive value rf2 to store the random forest model rf1().
rf2 <- reactiveValues()
observe({
if(!is.null(rf1()))
isolate(
rf2 <<- rf1()
)
})
.
ステップ2。あなたがしたときにDownloadHandlerでReactiveValueを保存してください。
# Download Random Forest Model
output$downloadModel <- downloadHandler(
filename <- function(){
paste("RF Model.RData")
},
content = function(file) {
save(rf2, file = file)
}
)
.
これがあなたのために働くことを願っています。
所属していません StackOverflow