如何在带有Shiny运行时的R Markdown应用中实现自动跳转至其他链接

失效原因 #

你之前尝试的方案均失败，核心原因是代码执行时机早于R Markdown页面和Shiny运行时的初始化完成时间：

• 直接插入的JS脚本会在DOM未完全构建时执行，浏览器不会响应跳转请求
• 顶层直接调用runjs()时，shinyjs的前端绑定还未初始化，命令无法传递到前端执行
• 程序化点击失效是因为触发点击时，按钮元素还未被渲染到DOM树中

可行实现方案 #

方案1：无需额外依赖，直接监听Shiny就绪事件触发跳转 #

该方案不需要加载shinyjs，直接通过原生JS监听Shiny运行时初始化完成事件触发跳转，代码最简：

---
title: "自动跳转示例"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
runtime: shiny
---

```{r}
tags$script(HTML("
$(document).on('shiny:connected', function() {
  // 替换为你的目标跳转地址
  window.location.replace('https://example.com');
});
"))

### 方案2：shinyjs延迟执行方案
如果你已经在项目中使用shinyjs，可以通过延迟执行保证前端就绪后再触发跳转：
```r
---
title: "自动跳转示例"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
runtime: shiny
---

```{r}
library(shinyjs)
useShinyjs(rmd = TRUE)

observe({
  // 100ms延迟可根据实际情况调整，保证前端完全加载
  delay(100, runjs('window.location.replace("https://example.com");'))
})

## 条件跳转扩展
如果需要满足特定条件才跳转（比如用户完成某操作、验证通过等），只需要把跳转逻辑放到对应的响应式事件触发上下文即可。

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