r - Shiny 的下载处理程序不工作

Question

我有一个 Shiny 的下载处理程序

在server.R中:

  output$DownloadButton <- downloadHandler(
    filename = function() {
      paste("test", Sys.Date(), ".csv",sep="")
    },
    content = function(con) {
      print("in download")

print(con) # this prints C:\\Users\\me\\Local\\Temp\\RtmpI1EjY7\\file668338e4c33
  Data<-ReactiveGetData()$Data #Here I get the data I want to download
  print(head(Data)) #This prints out the data with no errors
  write.csv(Data, con)
}
  )

这是ui.r:

  sidebarPanel(
    downloadButton("DownloadButton", label = "Download",class = NULL), ....

到目前为止它打印了临时文件:

C:\\Users\\me\\Local\\Temp\\RtmpI1EjY7\\file668338e4c33

但是当我手动转到此路径时，我收到一条错误消息“找不到文件”

然后当我点击下载按钮时，我没有收到错误消息，也没有任何反应。

知道为什么似乎没有创建临时文件吗？

临时文件应该以 csv 结尾吗？

这是一个更简单的示例，如果您运行下面的 server.r 和 ui.r 文件，就可以运行它。我无法下载以下文件:

"file"对象不存在，不知道为什么？

ui.r

library(shiny)
shinyUI(fluidPage(
  sidebarPanel(
    downloadButton("Download", label = "Download",class = NULL)
  ),
  mainPanel(
    tabsetPanel(
      tabPanel("test",
               h3("test")
      )
    )
  )
))

server.r

library(rJava)
shinyServer(function(input, output, session) {


  output$Download <- downloadHandler(
    filename = function() {
      paste("test.csv",sep="")
    },
    content = function(file) {
      print("in download")
      print(file) #this file does not exist ???
      Data<- data.frame(name= c(1,2,3,4))
      print(head(Data))
      write.csv(Data, file)
    }
  )

})#end of server function

您可以通过以下方式运行它:

library(rJava)
library(shiny)
runApp("C://Users//me//pathToShinyProjectFolder")

解决方法:点击左上角的“在浏览器中打开”，默认浏览器为 CHROME 或 FIREFOX。

Answer 1

尝试在另一个浏览器中打开该应用程序。并非所有浏览器都是平等创建的。这可以通过在您选择的另一个浏览器中简单地键入以下内容来完成。

localhost:5586

请注意，您的端口号可能不同。