如何在Rmd中导出保留flexdashboard格式的PDF并处理HTML组件

核心思路 #

flexdashboard本质是HTML格式的仪表盘，直接用pdf_document输出会丢失布局，还会因HTML元素的源码导致LaTeX报错。正确做法是先生成完整的flexdashboard HTML，再用webshot2对HTML页面截图生成PDF，这样能100%保留仪表盘布局。

步骤1：调整YAML输出设置 #

只保留flexdashboard::flex_dashboard输出，不要同时指定pdf_document，避免LaTeX尝试编译HTML元素源码：

---
title: "Dashboard: Site X"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
---

步骤2：添加自动生成PDF的代码块 #

在Rmd文档的末尾添加以下代码块，设置echo=FALSE让它自动执行（不会显示在HTML里）：

library(webshot2)

# 首次运行请先安装Chromium组件（仅需执行一次）
# webshot2::install_chromium()

# 获取当前Rmd生成的HTML文件路径
html_file <- paste0(tools::file_path_sans_ext(rmarkdown::current_input()), ".html")

# 将HTML首页转为PDF，保留仪表盘布局
webshot(
  url = html_file,
  file = paste0(tools::file_path_sans_ext(html_file), ".pdf"),
  vwidth = 1200,  # 按需调整宽度，适配你的仪表盘
  vheight = 800,  # 按需调整高度
  cliprect = "viewport",  # 仅截取当前视口（即首页）
  delay = 2  # 延迟2秒，确保动态元素（如ggplotly）完全渲染
)

关键说明 #

1. 为什么之前的方法报错？
   同时指定pdf_document和flexdashboard输出时，knitr会用LaTeX编译整个文档，但ggplotly等HTML元素的源码中包含LaTeX无法识别的特殊标记（比如你遇到的]8;;），导致编译失败。用webshot2截图HTML则完全规避了这个问题，因为PDF是基于页面渲染后的截图生成的。

2. 如何确保只导出首页？
   cliprect = "viewport"参数会只截取浏览器当前视口的内容，也就是仪表盘的首页；如果需要截取更长内容，可以改成cliprect = "content"，但你的需求是首页，用viewport即可。

3. 动态元素渲染问题
   加入delay = 2（可调整时长）是为了给ggplotly这类动态可视化元素足够的渲染时间，避免截图出现空白或未加载完成的情况。

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