r - 如何在 Shiny 的一个下载按钮中下载多个 png 图

Question

我对 Shiny 很陌生。我有几个 ggplot graghs。我为他们每个人都添加了下载按钮。
这是一个示例代码:

output$salary_graph <- renderPlot({
print(salary_plot())
})
output$salary_plot_dl <- downloadHandler(
  filename = function() {
    "salary_plot.png"
},
content = function(file) {
png(file)
print(salary_plot())
dev.off()
}
)

我也有 year_plot、group_plot 和 age_plot。

目前，我想添加一个可以下载我所有 png 图的按钮。它可以是一个 zip 文件，其中包含 4 个 png 文件或具有 4 页的 pdf 文件或四个单独的 png 文件。

我在这里的问题不是关于创建 pdf 或 zip 文件以在常规 R 脚本中导出我的所有图。我在 SHINY 应用程序中询问 downloadHandler。这是本网站上的一个独特问题。

有人可以教我怎么做吗？

Answer 1

你可以用这种方式制作一个四页的pdf文件。

output$salary_graph <- renderPlot({
print(salary_plot())
})
output$salary_plot_dl <- downloadHandler(
  filename = function() {
    "Rplots.pdf"
},
content = function(file) {
pdf(file)
 print( salary_plot() )
 print( year_plot() )
 print( group_plot() )  
 print( age_plot() )
dev.off()
}
)