在Shiny中使用clientData启动downloadHandler

Question

我创建了一个闪亮的应用程序,用于session$clientData获取服务器的参数值.它工作得很好,但是,我也希望能够通过网址启动下载,例如:

localhost:8100/?plot=a&title=mytitle&download=1

然后在server.R,像:

if(session$clientData$download == "1"){
  download()
} 

因此,是否有可能引发downloadHandler()的server.R？

谢谢!

Answer 1

我不确定我是否正确地理解了你要做的事情.我所理解的是,当download=1网址中存在查询字符串时,您希望启动下载.你可以通过注入一些javascript来检测所需的查询字符串时打开链接.但是会有一些问题.您的浏览器很可能会阻止弹出窗口.在你解雇代码之前你需要等待足够长的时间(我选择了5秒).

require(shiny)
runApp(list(
  ui = bootstrapPage(
    tags$head(tags$script(HTML('
      Shiny.addCustomMessageHandler("jsCode",
        function(message) {
          eval(message.value);
        }
      );
    '))),
    downloadLink('downloadData', 'Download'),
    verbatimTextOutput("summary")
  ),
  server = function(input, output, session) {
    data <- seq(100)
    output$downloadData <- downloadHandler(
      filename = function() {
        paste('data-', Sys.Date(), '.csv', sep='')
      },
      content = function(file) {
        write.csv(data, file)
      }
    )

    output$summary <- renderText({
      cnames <- names(session$clientData)

      allvalues <- lapply(cnames, function(name) {
        item <- session$clientData[[name]]
        if (is.list(item)) {
          list_to_string(item, name)
        } else {
          paste(name, item, sep=" = ")
        }
      })
      paste(allvalues, collapse = "\n")
    })

    observe({
      query <- parseQueryString(session$clientData$url_search)
      if(!is.null(query$download)){
        if(query$download == 1){
          jsinject <- "setTimeout(function(){window.open($('#downloadData').attr('href'))}, 5000);"
          session$sendCustomMessage(type = 'jsCode', list(value = jsinject))          
        }
      } 
    })
  }
))