R shiny:下载多个.csv文件

library(shiny)

ui <- fluidPage(
  fileInput("files", "选择要下载的文件", multiple = TRUE),
  actionButton("downloadBtn", "下载文件")
)

server <- function(input, output) {
  # 读取用户选择的文件
  files_data <- reactive({
    files <- input$files
    if (is.null(files))
      return(NULL)
    
    data <- lapply(files$datapath, read.csv)
    do.call(rbind, data)
  })
  
  # 下载按钮的响应函数
  output$downloadBtn <- downloadHandler(
    filename = function() {
      paste("data", Sys.Date(), ".csv", sep = "_")
    },
    content = function(file) {
      write.csv(files_data(), file, row.names = FALSE)
    }
  )
}

shinyApp(ui, server)