"Download" 按钮无需下载即可打开新应用 window - Shiny

Question

我的 "download" 按钮没有按预期工作。每次我点击它都会打开一个新应用 window。我想知道为什么它以这种方式运行？

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

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

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)

"Download" 按钮无需下载即可打开新应用 window - Shiny

"Download" button opens a new app window without downloading - Shiny

r

shiny

shinydashboard