Question

我的＃34;下载＆＃34;按钮不能按预期工作。每次点击它都会打开一个新的应用程序窗口。我想知道为什么它以这种方式运作？

在server.R中下载功能：

output$down_load <- downloadHandler(
    # specify the file name
    filename = function() {
          paste('cls_result_export', Sys.Data(),'.csv', sep='')
        },
    # Write the plot back
    content = function(file){
          write.csv(cls_output()$raw_data, file)
        }
)

下载ui.R中的功能：

downloadButton(outputId = "down_load", label = "Download the CLS Raw Data")

Answer 1

尝试使用actionButton连接到observe子句，如下所示：

library(shiny)

ui <- fluidPage(  actionButton("dodo", "Download" ) )

   server <-  function(input, output)
   {
     observe({

       if (input$dodo>0){
          fname <- paste0('cls_result_export', Sys.Date(),'.csv')
          write.csv(mtcars,fname)
       }
     })
}
shinyApp(ui = ui, server = server)

Answer 2

尝试解决此问题的另一种可能方法是在server.R脚本中包含此行：

outputOptions(output, 'down_load', suspendWhenHidden=FALSE)

＆＃34;下载＆＃34;按钮打开一个新的应用程序窗口，无需下载 - 闪亮

2 个答案: