R/Shiny 下载处理程序导致截断的 .csv 文件

Question

我已经构建了一个将数据帧存储在反应值中的应用程序。然后我有一个 UI 下载按钮，可以将该数据框下载到 CSV 文件中。它运行良好，直到 CSV 文件变得非常大。我估计大约 100MB，但很难确定。

我的代码不起眼 - 但一个最小的可重现示例可能如下。似乎在本地运行它和在我的 Shiny Server 实例 (Amazon EC2) 上运行它可能有所不同。

ui.R

shinyUI(downloadButton("goDownload","Download Large File"))

服务器.R

library(shiny)

shinyServer(function(input, output, session) {

 op <- reactiveValues(data = NULL)

op$dataOp<-data.frame(col1=seq(0:30000000),col2=seq(30000000:0)

dataOp <- reactive({
  if (!is.null(op$dataOp)){
    op$Labels
  } else {
    print("no op$dataOp")
  }
  })


output$goDownload<- downloadHandler(
    filename = function() { paste('Data.csv', sep='') },
    content = function(filename) {
      write.csv(dataOp(), filename, row.names = F)
    })

})

Answer 1

我最好的猜测是你没有等待足够长的时间让闪亮完成将文件写入磁盘。写入大文件需要 R 大量时间（您提供的数据帧需要 30-60 秒的时间来写入）。

要注意的另一件事是，闪亮不会直接写入您在filename 中提供的文件。相反，它将数据写入临时文件，然后将该临时文件复制到filename....这两个步骤都需要时间，因此您必须在 R 执行其操作时让会话保持打开状态。下面的例子对我有用。

library(shiny)

ui <- fluidPage(
  downloadButton("big_download", "Download Large File"),
  downloadButton("small_download", "Download small File")
)

server <- shinyServer(function(input, output, session) {

  big_data <- data.frame(col1 = seq(0:30000000), col2 = seq(30000000:0))
  small_data <- mtcars

  output$big_download <- downloadHandler(
    filename = function() {
      "big-data.csv"
    },
    content = function(filename) {
      print("writing data to tempfile")
      write.csv(big_data, filename, row.names = F)
      print("finished writing to tempfile, now copying it")
    }
  )

  output$small_download <- downloadHandler(
    filename = function() {
      "small-data.csv"
    },
    content = function(filename) {
      write.csv(small_data, filename, row.names = F)
    }
  )

})

shinyApp(ui, server)