如何让 R Shiny downloadHandler 文件名正常工作？

Question

我正在设置一个允许用户下载自定义数据集的 Shiny 应用程序。在tutorial 之后，我按照docs 中给出的示例设置downloadHandler（在此转载，因为如果我复制并粘贴它也会发生同样的事情）。

ui <- fluidPage(
  downloadLink("downloadData", "Download")
)

server <- function(input, output) {
  # Our dataset
  data <- mtcars

  output$downloadData <- downloadHandler(
    filename = function() {
      paste("data-", Sys.Date(), ".csv", sep="")
    },
    content = function(file) {
      write.csv(data, file)
    }
  )
}

shinyApp(ui, server)

问题：

这个问题只出现在我的 Linux* 系统上，而且似乎在 Mac 上运行良好。下载和一切工作正常，但“保存”GUI 没有为我提供正确的文件名。没有错误消息或警告。根据我的意见，

• 我希望它能给我data-TIME.csv，即filename 的输入。 （如果我在那个插槽中给它简单的字符串，它也不起作用）。

• 但它为我提供了 DownloadData 或我为 output 变量命名的任何名称（参见屏幕截图）。

问题：

• 这是我怀疑的操作系统问题，还是我做错了什么？

• 我该如何解决这个问题？我可以让它在任何系统上运行吗？

谢谢！

我正在运行基本 OS 0.4 Loki，基于“Ubuntu 16.04.2 LTS”构建，GTK 版本：3.18.9。 & RStudio 1.0.143

Answer 1

如果您使用 Rstudio 浏览器测试您的应用程序，这可能是问题所在。我在 Windows 上也有同样的问题。

当我使用 Rstudio 浏览器时，文件名没有正确传递，但 如果我使用 Firefox 一切正常。您的代码在我的 Firefox 中也可以正常工作。