在Shiny中使用clientData启动downloadHandler

时间:2013-08-30 21:43:47

标签: r shiny

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

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

然后在server.R中,例如:

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

因此,是否可以在downloadHandler()中启动server.R

谢谢!

1 个答案:

答案 0 :(得分:5)

我不确定我是否正确理解了您要做的事情。我所理解的是,当网址中存在查询字符串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))          
        }
      } 
    })
  }
))