如何在一个下载按钮中下载几个png图

我很有光泽.我有几个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文件或4个单独的png文件.

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

有人可以教我怎么做吗?

最佳答案 你可以用这种方式制作一个包含四页的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()
}
)
点赞