闪亮仪表板downloadHandler的用户定义函数？

【问题标题】：user defined function for shiny dashboard downloadHandler?闪亮仪表板downloadHandler的用户定义函数？
【发布时间】：2018-07-20 01:18:11
【问题描述】：

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

我真的很想拥有downloadHandlercode 的一个实例，而不是我现在拥有的多个实例。谢谢

【问题讨论】：

标签： r shiny shinydashboard

【解决方案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"
)

【讨论】：

感谢 Mal_a，这基本上就是我的应用程序中的内容。有没有办法将此代码包装在函数中，例如： function_x