downloadButton在shiny服务器中下载多个renderPlot reactive

library(shiny)

ui <- fluidPage(
  downloadButton("download_plots", "Download Plots")
)

server <- function(input, output) {
  # 创建多个reactive对象
  plots <- list(
    plot1 = reactive({
      # 绘制第一个图形
      # ...
    }),
    plot2 = reactive({
      # 绘制第二个图形
      # ...
    }),
    # 添加更多的reactive对象
  )
  
  # 监听下载按钮的点击事件
  observeEvent(input$download_plots, {
    # 创建临时目录
    temp_dir <- tempdir()
    
    # 绘制并保存所有的图形
    for (name in names(plots)) {
      plot <- plots[[name]]()
      file_path <- file.path(temp_dir, paste0(name, ".png"))
      png(file_path)
      print(plot)
      dev.off()
    }
    
    # 压缩临时目录中的所有图形文件
    zip_file <- file.path(temp_dir, "plots.zip")
    zip(zip_file, files = list.files(temp_dir, full.names = TRUE))
    
    # 提供下载链接
    output$download_plots <- downloadHandler(
      filename = "plots.zip",
      content = function(file) {
        file.copy(zip_file, file)
      }
    )
  })
}

shinyApp(ui, server)