Question

在我最近创建的一个简单闪亮的应用程序示例中，我目前正尝试包含下载从结果创建的数据框的可能性。我在这里提到了server.R脚本的一部分，以便不做一个巨大的帖子：

 shinyServer(function(input, output) {

 table_options<- list(lengthMenu = list(c(5,10,15,20),
 c('5','10', '15', '20')), pageLength = 15, ordering=TRUE,
 class = 'cell-border stripe',dom ='t',scrollX = TRUE,
 fixedColumns = list(leftColumns = 2, rightColumns = 1))


 inTable <- reactive({# upload a tsv file
 inFile <- input$file1

 if (is.null(inFile))
 return(NULL)

 read.table(inFile$datapath,header=input$header, 
 sep="\t",stringsAsFactors = FALSE)

 }) #END REACTIVE

 rv <- reactiveValues()
 rv$data <- NULL # to further use it into the observeEvent below

 observeEvent(input$goButton, {

 df <- inTable()
 # some data manipulation with df...

 if(input$repo_option=="mimic"){

 # some functions here that result to a data frame named final dat
 rv$data <- final.dat
 rv$data
 }

 else if(input$repo_option=="reverse"){

 # similar procedure...
 rv$data <- final.dat
 rv$data
 }
 })

 output$contents <- DT::renderDataTable({
    expr=DT::datatable(rv$data, options=table_options,
    extensions ='FixedColumns',selection="none")
    })

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


  })

我的主要问题是，虽然输出内容在应用中运行良好，但是当我按下ui.R服务器上的下载按钮时（此处未发布）为简单起见，下载＆＃34;弹出＆＃34;窗口出现，但保存不起作用。因此，我怀疑downloadHandler函数中的代码有问题，但任何想法或帮助？

R包中的DownloadHandler函数闪亮不会产生用于下载的csv文件

0 个答案: