下载多个包含数据表的反应对象

Question

我在闪亮的应用程序(RA_s,Per) 中有多个反应对象表，我分别下载每个表。现在，我正在尝试使用下载按钮下载一个包含所有这些表格的 zip 文件。

这是我的代码，我不知道如何完成downloadHandler函数。我想下载一个 zip 文件，其中包含 2 个 csv 文件 RA_s 和 Per。

代码

shinyServer(function(input, output) {

  RA_s <- reactive({
    iris
  })

  Per <- reactive({
    sepal1 <- RA_s()["Sepal_Length"]
    sepal2 <- RA_s()["Sepal_Width"]
    value = sepal1*sepal2
    c = cbind(RA_s(),value)
  })

  output$downloadData <- downloadHandler(
  filename = function() {
    paste0("output", ".zip")
  },
  content = function(file) {
  ...
  })
})


sidebar <- dashboardSidebar(
  sidebarMenu(
    menuItem("Download", tabName = "d")
)
body<- dashboardBody(
  tabItems(
    tabItem(tabName = "d",
         downloadButton('downloadData', 'Download')
     )
  )
dashboardPage(
dashboardHeader(title = "Valo"),
sidebar,
body
)

Answer 1

您可以先保存压缩文件，然后再压缩，如下：

library(shiny)
server<- shinyServer(function(input, output) {

  RA_s <- reactive({
    iris
    print(iris)
  })

  Per <- reactive({
    sepal1 <- RA_s()["Sepal.Length"]
    sepal2 <- RA_s()["Sepal.Width"]
    value = sepal1*sepal2
    c = cbind(RA_s(),value)
  })

  output$downloadData <- downloadHandler(
    filename = 'two_csvs.zip',
    content = function(fname) {

      write.csv(RA_s(), file = "csv1.csv", sep =",")
      write.csv(Per(), file = "csv2.csv", sep =",")

      zip(zipfile=fname, files=c("csv1.csv","csv2.csv"))
    },
    contentType = "application/zip"
  )

})

ui<- shinyUI(

  downloadButton('downloadData', 'Download')

)

shinyApp(ui,server)

您当然可以指定一个子目录，以保持您的目录干净。希望这会有所帮助！