r - 如何让 R Shiny downloadHandler 文件名起作用？

Question

我正在设置一个允许用户下载自定义数据集的 Shiny 应用程序。关注tutorial , 我设置了 downloadHandler按照 docs 中给出的示例进行操作(转载在这里，因为如果我复制并粘贴它会发生同样的事情)。

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 变量指定的任何名称(参见屏幕截图)。

问题:

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

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

谢谢!

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

Answer 1

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

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