如何强制浏览器在新标签页打开Shiny生成的PDF？能否在Shiny Server托管？

方法一：修改响应头，让浏览器直接在新标签页打开PDF（实现需求1） #

Shiny默认的downloadHandler会触发文件下载，我们可以通过自定义HTTP响应头，让浏览器尝试直接打开PDF而非下载，同时调整前端链接属性配合实现。

修改后的app.R代码 #

# load required libraries
library(shiny)
library(rmarkdown)
library(knitr)
library(htmltools)

# some data
set.seed(1)
dt <- data.frame(group = c(rep("A",3),rep("B",3),rep("C",3), rep("D",3)), 
                 value=rnorm(12))

ui <- fluidPage(
  
  # let user select a group
  selectInput(inputId = 'group', label = "Pick a Group", choices = unique(dt$group)),
  
  # 移除download属性，保留target="_blank"确保新标签页打开
  HTML('
    <a id="downloadReport" class="shiny-download-link some-css" href="" target="_blank">
      Generate Report
    </a>
  ')
)

server <- function(input, output, session) {
  
  # define file name  
  file_name <- eventReactive(input$group,{
    paste0("Group-",input$group, ".pdf")
  })
  
  # render custom report，添加响应头配置
  output$downloadReport <- downloadHandler(
    filename = function() file_name(),
    content = function(file) {
      
      # Set up parameters to pass to Rmd document
      params <- list(group = input$group)
      
      # path to *.Rmd report  
      src <- normalizePath('dummy-report.Rmd')
        
      # temporarily switch to the temp dir
      owd <- setwd(tempdir())
      on.exit(setwd(owd))
      
      file.copy(src, 'dummy-report.Rmd', overwrite = TRUE)
      out <- render('dummy-report.Rmd', pdf_document())
      file.rename(out, file)
    },
    # 明确文件类型为PDF
    contentType = "application/pdf",
    # 设置响应头，告诉浏览器直接打开文件而非下载
    headers = list(`Content-Disposition` = inline(file_name()))
  )
}

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

关键调整说明：

• 移除HTML链接中的download属性，避免强制触发下载行为
• 在downloadHandler中添加contentType = "application/pdf"，明确告知浏览器文件类型
• 通过headers参数设置Content-Disposition: inline，让浏览器尝试直接打开PDF

方法二：服务器托管PDF，生成可直接访问的链接（实现需求2） #

将生成的PDF保存到Shiny默认托管的www目录，动态生成指向该文件的链接，用户点击后即可在新标签页打开。

修改后的app.R代码 #

# load required libraries
library(shiny)
library(rmarkdown)
library(knitr)
library(htmltools)

# 创建www目录（Shiny默认托管该目录下的静态文件）
if (!dir.exists("www")) dir.create("www")

# some data
set.seed(1)
dt <- data.frame(group = c(rep("A",3),rep("B",3),rep("C",3), rep("D",3)), 
                 value=rnorm(12))

ui <- fluidPage(
  
  # let user select a group
  selectInput(inputId = 'group', label = "Pick a Group", choices = unique(dt$group)),
  
  # 动态生成的PDF链接容器
  uiOutput("reportLink")
)

server <- function(input, output, session) {
  
  # 生成PDF并保存到www目录
  generate_pdf <- eventReactive(input$group, {
    # 定义PDF保存路径
    file_path <- file.path("www", paste0("Group-", input$group, ".pdf"))
    
    # Set up parameters to pass to Rmd document
    params <- list(group = input$group)
    
    # path to *.Rmd report  
    src <- normalizePath('dummy-report.Rmd')
      
    # 直接生成PDF到指定路径
    render(src, output_file = file_path, params = params, output_format = pdf_document())
    
    # 返回相对路径（Shiny会自动映射到www目录）
    paste0("/Group-", input$group, ".pdf")
  })
  
  # 动态生成打开PDF的链接
  output$reportLink <- renderUI({
    req(generate_pdf())
    tags$a(
      href = generate_pdf(),
      target = "_blank",
      class = "some-css",
      "Generate and Open Report"
    )
  })
}

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

关键调整说明：

• 创建www目录，Shiny会自动托管该目录下的所有静态文件，无需额外配置
• 生成PDF时直接保存到www目录，再返回相对路径用于构建链接
• 链接设置target="_blank"，确保点击后在新标签页打开PDF

注意事项：

• 方法二中需定期清理www目录下的旧PDF文件，避免占用过多服务器存储空间，可添加定时清理逻辑
• 方法一的效果依赖浏览器默认设置，若用户浏览器强制下载PDF，可能仍会触发下载，但多数现代浏览器支持直接打开

内容的提问来源于stack exchange，提问作者Chris437