Shiny如何实现自动跳转新标签页且不被Chrome弹窗拦截

Chrome的弹窗拦截机制规定：只有用户主动交互（如点击、按键）的同步执行上下文中调用的window.open()才会被放行，所有异步回调（比如Shiny的server端返回后的触发逻辑、延时函数回调）里调用的window.open()都会被拦截，返回null，这就是你之前写的代码报Cannot read properties of null (reading 'location')的根本原因。

方案1：预开空白标签+异步回填地址（最接近需求的自动跳转方案） #

核心逻辑是把打开新标签的操作放在用户点击的同步流程中（不会被拦截），等后端生成完URL后再给已经打开的空白标签赋值跳转地址，全程不会触发拦截规则。
完整代码示例：

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  # 点击按钮时同步打开空白标签，将标签引用存在全局变量
  actionButton("download", "下载/跳转", onclick = "window.tempNewTab = window.open('about:blank');"),
  # 隐藏输入框，用于传递后端生成的URL
  hidden(textInput("generated_url", label = NULL, value = ""))
)

server <- function(input, output, session) {
  observeEvent(input$download, {
    # 模拟耗时的URL生成逻辑，可替换为你的自定义函数
    Sys.sleep(20)
    final_url <- "https://www.example.com"
    
    # 将生成的URL更新到隐藏输入框
    updateTextInput(session, "generated_url", value = final_url)
  })
  
  # 监听URL变化，给预开的空白标签赋值跳转地址
  observeEvent(input$generated_url, {
    req(input$generated_url)
    runjs(sprintf("if(window.tempNewTab) {
      window.tempNewTab.location.href = '%s';
      delete window.tempNewTab;
    }", input$generated_url))
  })
}

shinyApp(ui, server)

方案2：生成跳转链接提示用户手动点击（兼容性最优，无拦截风险） #

如果可以接受用户二次点击，这是最稳妥的方案，完全规避浏览器拦截规则：

library(shiny)

ui <- fluidPage(
  actionButton("gen_link", "生成跳转链接"),
  uiOutput("link_area")
)

server <- function(input, output, session) {
  observeEvent(input$gen_link, {
    # 模拟耗时的URL生成逻辑
    Sys.sleep(20)
    final_url <- "https://www.example.com"
    
    output$link_area <- renderUI({
      tags$p("链接已生成，请点击跳转：", 
        tags$a(href = final_url, "立即跳转", target = "_blank")
      )
    })
  })
}

shinyApp(ui, server)

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