下载.RData文件

Question

我正在创建一个闪亮的应用程序，我的一个输出最好保存为用户的.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)
  }
)

我可以点击下载按钮很好，它刷新我的窗口，但没有项目放在下载队列中。

Answer 1

我试图以.RData格式保存一个随机森林模型。下面的代码对我有用。希望你也能这么做。

ui.R

downloadButton(“下载模型”，“下载RF模型”，class="dlButton")

server.R

Step1。创建一个reactiveValue来保存反应性函数，在我的例子中，随机森林模型rf1()

# Create a reactive value rf2 to store the random forest model rf1().
rf2 <- reactiveValues()
observe({
  if(!is.null(rf1()))
  isolate(
    rf2 <<- rf1()
  )
})

Step2。将reactiveValue保存在downloadHandler中，就像您所做的那样。

# Download Random Forest Model
  output$downloadModel <- downloadHandler(
    filename <- function(){
      paste("RF Model.RData")
    },

    content = function(file) {
      save(rf2, file = file)
    }
  )

希望这对你有用。