如何使用DownloadButton下载Shiny应用中动态生成的多幅绘图

以下是修改后的完整可运行代码，可直接复用对应逻辑到你的shiny-server应用中：

max_plots <- 5

ui <- fluidPage(
  headerPanel("Dynamic number of plots"),
  # 顶部下载按钮
  downloadButton("download_plots", "下载全部图表为PDF"),
  
  sidebarPanel(
    sliderInput("n", "Number of plots", value=1, min=1, max=5)
  ),

  mainPanel(
    uiOutput("plots")
  )
)

server <- function(input, output) {

  output$plots <- renderUI({
    plot_output_list <- lapply(1:input$n, function(i) {
      plotname <- paste("plot", i, sep="")
      plotOutput(plotname, height = 280, width = 250)
    })
    do.call(tagList, plot_output_list)
  })

  # 公共绘图函数，保证页面渲染和导出的图表样式一致
  draw_single_plot <- function(i) {
    plot(1:i, 1:i,
         xlim = c(1, max_plots),
         ylim = c(1, max_plots),
         main = paste("1:", i, ".  n is ", input$n, sep = "")
    )
  }
  
  for (i in 1:max_plots) {
    local({
      my_i <- i
      plotname <- paste("plot", my_i, sep="")
      output[[plotname]] <- renderPlot({
        draw_single_plot(my_i)
      })
    })
  }
  
  # 下载逻辑处理
  output$download_plots <- downloadHandler(
    filename = function() {
      paste0("plots_", Sys.Date(), ".pdf")
    },
    content = function(file) {
      pdf(file, onefile = TRUE)
      # 循环绘制当前选择的所有图表到PDF，如需固定导出5张可将input$n改为max_plots
      for (i in 1:input$n) {
        draw_single_plot(i)
      }
      dev.off()
    }
  )
}

shinyApp(ui, server)

核心改动说明 #

• UI层在页面头部新增downloadButton组件，符合顶部放置的需求
• 服务端将绘图逻辑抽为公共函数，避免重复编码，同时保证页面展示和导出的图表样式完全一致
• 新增downloadHandler处理下载请求：开启PDF设备后按需求循环绘制所有图表到同一个PDF文件，关闭设备后自动触发浏览器下载

内容的提问来源于stack exchange，提问作者ss10