如何在R shiny中将多个绘图下载为zip文件？

install.packages("shiny")
install.packages("zip")

library(shiny)

ui <- fluidPage(
  # 添加一个下载按钮
  downloadButton("downloadBtn", "下载绘图")
)

server <- function(input, output) {
  # 定义下载事件
  output$downloadBtn <- downloadHandler(
    filename = "plots.zip", # 下载的zip文件名
    content = function(file) {
      # 创建一个临时目录用于保存绘图文件
      temp_dir <- tempdir()
      
      # 生成多个绘图，并保存到临时目录中
      # 这里只是示例，你可以根据自己的需求生成绘图
      for (i in 1:3) {
        plot_file <- paste0(temp_dir, "/plot", i, ".png")
        png(plot_file)
        plot(rnorm(100))
        dev.off()
      }
      
      # 将临时目录中的绘图文件打包为zip文件
      zip_file <- paste0(temp_dir, "/plots.zip")
      zip(zip_file, files = list.files(temp_dir, full.names = TRUE))
      
      # 将zip文件复制到下载目录中
      file.copy(zip_file, file)
    }
  )
}