如何在R Markdown中动态更新浏览器标签页标题？

问题核心是YAML前置元数据的渲染时机早于文档内的R代码块：你在title中引用的progress变量是在后续代码块才定义的，第一次渲染时该变量尚未存在，导致标题无法更新；第二次渲染时变量被缓存才生效，设置cache=FALSE也无法改变这个执行顺序。

以下两种方案可实现一次渲染完成标题更新：

方案1：直接在YAML中计算进度值 #

把标题的计算逻辑直接移到YAML里，不依赖后续代码块的变量，让YAML直接读取params生成标题：

---
title: 'Status: `r sprintf("%.0f%%", params$current_page / params$total_pages * 100)`'
params:
   current_page: 27
   total_pages: 79
output:
   flexdashboard::flex_dashboard: default
   html_document: default
---

library(bslib)

progress <- with(params, current_page / total_pages)
bslib::value_box(title="Status", value=sprintf("%.0f%%", progress*100))

修改后，渲染时YAML会直接用params计算进度，无需等待后续代码块，一次渲染即可得到正确标题。

方案2：用JavaScript动态修改标题 #

若需要保留代码块中progress变量的定义逻辑，可添加一段JavaScript，在页面加载完成后动态更新浏览器标签标题：

---
title: 'Status: 0%'  # 初始占位标题
params:
   current_page: 27
   total_pages: 79
output:
   flexdashboard::flex_dashboard: default
   html_document: default
---

library(bslib)
library(htmltools)

progress <- with(params, current_page / total_pages)
bslib::value_box(title="Status", value=sprintf("%.0f%%", progress*100))

# 动态修改浏览器标题
tags$script(sprintf("document.title = 'Status: %.0f%%';", progress*100))

这段代码会在页面加载后，通过JavaScript直接修改浏览器标签标题，一次渲染即可完成更新。

内容的提问来源于stack exchange，提问作者Karsten W.