如何从 R/Shiny 应用程序下载多个文件？

Question

关于 SO 的这个主题有许多不同的 Q/A，但我找不到适合我用例的。我也很惊讶 RStudio / Shiny 开发人员自己没有提供一些关于如何做到这一点的文档。无论如何，以这个示例应用程序为例：

library(shiny)
library(glue)
library(tidyverse)

# Define UI for application 
ui <- fluidPage(
    # Application title
    titlePanel("Test Multi-File Download"),
    p("I hope this works!"),
    downloadButton(
        outputId = "download_btn",
        label = "Download",
        icon = icon("file-download")
    )
)

# Define server logic 
server <- function(input, output) {
    
    #datasets stored in reactiveValues list
    to_download <- reactiveValues(dataset1 = iris, dataset2 = airquality, dataset3 = mtcars, dataset4 = NULL)
    blahblah <- iris
    
    output$download_btn <- downloadHandler(
        filename = function(){
            paste("my_data_", Sys.Date(), ".csv", sep = "")
        },
        content = function(file){
            
           #works
           #readr::write_csv(blahblah, file)
 
                
            #Attempt 1
           #  #create some temp directory
           #  temp_directory <- tempdir()
           # browser()
           #   reactiveValuesToList(to_download) %>%
           #       #x is data, y is name
           #      imap(function(x,y){
           #          #browser()
           #          #check if data is not null
           #          if(!is.null(x)){
           #              #create file name based on name of dataset
           #              file_name <- glue("{y}_data.csv")
           #              #write file to temp directory
           #              readr::write_csv(x, file_name)
           #          }
           #      })
            
            # zip::zip(
            #     zipfile = file,
            #     files = ls(temp_directory),
            #     root = temp_directory
            # )

        }
        
    )

    
}

# Run the application 
shinyApp(ui = ui, server = server)

我有一些数据集存储在reactiveValues 列表中，我希望用户能够下载它们。理想情况下，我希望他们能够一次下载多个文件，而不是必须zip 他们，然后下载.zip 文件。我可以接受的另一个选择是将每个数据集添加到 Excel 工作表，然后下载多工作表 Excel 文件。 我的一般思考过程（关于前者）如下：

1. 下载按钮被按下
2. 创建一些临时目录
3. 将to_download reactiveValues 列表中包含的（不是NULL）数据集写入此目录
4. zip临时目录并下载

我觉得我很接近，但是我还没有能够成功地完成这项工作。有什么想法吗？

编辑 1：我知道建议的答案 here，但想避免使用 setwd()，因为我认为在 Shiny 应用程序中弄乱工作目录是不好的做法。

Answer 1

编辑了一些东西，它正在工作：

• 在zip::zip调用中使用dir而不是ls来显示临时目录的内容（ls列出了R环境而不是目录内容）
• 作为进一步的建议：在 tempdir() 内创建一个新的唯一文件夹，以确保仅添加相关文件。

library(shiny)
library(glue)
library(tidyverse)

# Define UI for application 
ui <- fluidPage(
  # Application title
  titlePanel("Test Multi-File Download"),
  p("I hope this works!"),
  downloadButton(
    outputId = "download_btn",
    label = "Download",
    icon = icon("file-download")
  )
)

# Define server logic 
server <- function(input, output) {
  
  #datasets stored in reactiveValues list
  to_download <- reactiveValues(dataset1 = iris, dataset2 = airquality, dataset3 = mtcars, dataset4 = NULL)
  blahblah <- iris
  
  output$download_btn <- downloadHandler(
    filename = function(){
      paste("my_data_", Sys.Date(), ".zip", sep = "")
    },
    content = function(file){
      
       temp_directory <- file.path(tempdir(), as.integer(Sys.time()))
       dir.create(temp_directory)
       
        reactiveValuesToList(to_download) %>%
           imap(function(x,y){
               if(!is.null(x)){
                   file_name <- glue("{y}_data.csv")
                   readr::write_csv(x, file.path(temp_directory, file_name))
               }
           })
        
      
      zip::zip(
          zipfile = file,
          files = dir(temp_directory),
          root = temp_directory
      )
      
      

    },
    contentType = "application/zip"
    
  )
  
  
}

shinyApp(ui = ui, server = server)

In my own Shiny app 正如您上面建议的那样，我使用了多工作表方法。使用openxlsx 生成多页 xlsx 工作簿的替代设置可能是：

...

output$download_btn <- downloadHandler(
    filename = function(){
      paste("my_data_", Sys.Date(), ".xlsx", sep = "")
    },
    content = function(file){
      
       wb <- createWorkbook()
       
        reactiveValuesToList(to_download) %>%
           imap(function(x,y){
               if(!is.null(x)){
                 addWorksheet(wb, sheetName = y)
                 writeData(wb, x, sheet = y)
               }
           })
        
        saveWorkbook(wb, file = file)
    },
    contentType = "file/xlsx"
    
  )

...

^{由reprex package 创建于 2021-12-16 (v2.0.1)}