R Shiny-在新标签页中打开可下载文件

时间:2018-08-01 19:15:18

标签: r shiny r-markdown shinydashboard

我正在使用R Shiny的downloadHandler / downloadLink函数使HTML文件可供下载。根据默认行为,该文件由浏览器下载到系统中。但是,由于我可以下载的文件是HTML文件(.html),是否有办法直接在新的浏览器选项卡中打开文件,而不是将文件下载到系统中?

我在StackOverflow上发现了一个similar question,建议在其中添加 target =“ _blank” 。但是,即使这样对我也不起作用。

我的R代码:

# UI Code:
ui <- fluidPage(
        includeCSS("custom.css"),
        div(class = "intro-divider"),
        tags$style(".logo {
                 margin-left: 10px;
                 }"),
                 tags$div(class="logo", img(src="logo.gif", height='50px',width='350px')),
        br(),
        div(class = "intro-divider"),
        br(),
        h3("Title Page"),
        wellPanel(
          tags$head(tags$style(type = "text/css", '.well{width: 600px}')),
          h4("July 20, 2018"),
          tags$div(
            tags$ul(
              tags$li(downloadLink("july20_1", "Download HTML File", target = "_blank"))
            )
          )
        ) 
    )

# Server Code
server = function(input, output) {

      output$july20_1 <- downloadHandler(
                                filename = "july20_analysis_html.html",
                                content = function(file) {
                                file.copy("july20_analysis_html.html", file)
                                        })         
    }


# Run the application 
shinyApp(ui = ui, server = server)

如何使文件直接打开到新标签页?

PS:我在Google Chrome浏览器上测试了此应用。

0 个答案:

没有答案