下载由闪亮生成的文件答案

【问题标题】：Downloading a file generated by shiny下载由闪亮生成的文件
【发布时间】：2017-08-16 19:48:07
【问题描述】：

我正在尝试下载一个 BSON 文件，我使用 mongolite 包从 MongoDB 导出到我的闪亮应用程序。这是我下载按钮中的代码：

output$downloadTiming <- downloadHandler(
  filename = "/keyTiming.bson",
  content = function(fileToDownload){

    mongolite::mongo(
      collection = "keyTiming",
      url = "mongodb://<User>:<Pass>@<url>"
    )$export(fileToDownload, bson = TRUE)
  }
)

当我尝试下载它时，它显示“错误：inherits(con, "connection") is not TRUE”。我花了很多时间研究并没有发现任何东西，希望这里有人可以使用。

【问题讨论】：

您能否确认您正在尝试做什么：您是使用 Shiny 从 MongoDB 中提取数据，然后将其导出到磁盘/硬盘驱动器，还是使用 Shiny 从 MongoDB 读取数据，所以它是在闪亮的应用程序中可用？
使用下载按钮导出到磁盘/硬盘

标签： r mongodb shiny mongolite

【解决方案1】：

我终于明白了。最终的代码是这样的

   output$downloadTiming <- downloadHandler(
  filename <- function(){
    return("timingOut.bson")
  },
  content <- function(file){

    outFile = file("timingOut.bson")

    mongolite::mongo(
      collection = "timings",
      url = "mongodb://<user>:<pass>@<database>"
    )$export(outFile, bson = TRUE)

    file.copy("timingOut.bson", file, overwrite = TRUE)
  }
)

【讨论】：