用户定义的功能为闪亮的仪表板downloadHandler？

Question

我正在构建一个闪亮的仪表板，其中有多个按钮可触发downloadHandler功能的实例。我正在下载图像和csv文件（不要问为什么）。我有downloadHandler功能，但我必须为每个要下载的文件创建一个单独的实例。有没有人有一个用户定义函数的例子来促进downloadHandler？

我真的想拥有downloadHandler代码的一个实例，而不是我现在拥有的多个实例。 感谢

Answer 1

您可以使用zip文件夹存储csv文件和图像，并立即下载：

output$Download <- downloadHandler(
  filename = function(){
    paste("Download","zip",sep=".")
  },
  content = function(con){
    tmpdir <- tempdir()
    setwd(tempdir())
    files <- c() #List your files 

    zip(zipfile=con, files = files)
  },
  contentType = "application/zip"
)