r - Shiny 的应用程序 : downloadHandler does not produce a file

Question

我不知道发生了什么 - 一切似乎都正常，但我的应用程序没有生成文件 - 尽管看起来确实如此。我在 Windows 的 RStudio 0.98.125 上运行它，并使用以下行运行它:运行应用程序()下面是一个非常简单的可重现示例:

我的“ui.R”:

shinyUI(pageWithSidebar(

  headerPanel("My App"),

  sidebarPanel(
    numericInput('NumRuns','Number of runs',value=3,min=3,max=10,step=1),

    actionButton(inputId="goButton","Run!"),

    textInput("downloadData","Save My Data Frame:",value="Data Frame 1"),
    downloadButton('downloadData','Save my file!')

  ),

  mainPanel(
    tabPanel("Some Text",
             h4(textOutput("caption2")),
             tableOutput("mydf"),
             value=3))
  ))

我的“服务器.R”:

shinyServer(function(input,output){

  # Creating files for download at the end

  myout = reactive({
    if(input$goButton==0) return(NULL)

      nrruns=input$NumRuns
      mylist=NULL
      for(i in 1:nrruns){
        mylist[[i]]<-data.frame(a=rnorm(10),b=runif(10))
        names(mylist)[i]<-paste("dataframe",i,sep="")
      }
      return(mylist)
  })

     output$mydf <- renderTable({
     if(input$goButton==0) return(NULL)
     input$goButton
     isolate(
       myout()$dataframe1
     )
   })

  output$downloadData <- downloadHandler(
    filename = function() { paste(input$downloadData, " ",Sys.Date(),".csv",sep="") },
    content = function(file) {
      write.csv(myout()$dataframe1,file,row.names=F)
    }
  )

})

Answer 1

请注意，下载按钮在 RStudio 查看器中不起作用。你的 friend 可能正在使用 RStudio 查看器来查看该应用程序。如果那是这种情况，请在外部网络浏览器中打开应用程序(有一个“运行应用程序”按钮右侧的下拉列表:在窗口中运行，在查看器 Pane 中运行，在外部运行；选择最后一项)。