如何通过脚本导出R中crosstalk+leaflet创建的带依赖独立HTML文档

核心原理 #

RStudio Viewer导出时会自动收集并打包所有前端依赖（如crosstalk、leaflet、Bootstrap等），我们可以通过脚本模拟这一逻辑，生成不依赖本地环境的独立HTML文件。

方案1：生成单文件独立HTML（推荐） #

利用htmltools::renderTags将所有依赖的CSS/JS内容直接嵌入HTML，无需额外依赖文件夹：

library(htmltools)
library(crosstalk)
library(leaflet)

# 示例bscols组合对象（替换为你的实际对象）
my_map_app <- bscols(
  widths = c(3, 9),
  filter_select("cyl", "气缸数", mtcars, ~factor(cyl)),
  leaflet(mtcars) %>% addTiles() %>% addMarkers()
)

# 渲染组件及依赖
rendered_content <- renderTags(my_map_app)

# 拼接完整HTML结构
full_html <- HTML(paste0(
  "<!DOCTYPE html>\n",
  "<html lang=\"zh-CN\">\n",
  "<head>\n",
  "<meta charset=\"utf-8\">\n",
  rendered_content$head,
  "</head>\n",
  "<body>\n",
  rendered_content$html,
  "</body>\n",
  "</html>"
))

# 保存单文件HTML
save_html(full_html, "standalone_map.html")

方案2：带依赖文件夹的可移植HTML #

如果偏好保留独立的依赖文件夹（和RStudio导出结构一致），可以指定save_html的libdir参数：

# 将依赖打包到同目录的lib文件夹中
save_html(my_map_app, "map_with_deps.html", libdir = "lib")

发送给同事时，需将map_with_deps.html和lib文件夹一起打包传输。

方案3：捕获Viewer内容导出 #

如果需要完全模拟RStudio Viewer的导出行为，可使用webshot2捕获已加载的Viewer内容：

library(webshot2)

# 在Viewer中加载你的应用
print(my_map_app)

# 等待组件加载完成（根据复杂度调整等待时间）
Sys.sleep(3)

# 导出HTML（自动打包依赖）
webshot("localhost:XXXX", "exported_map.html", delay = 2)

注：localhost:XXXX需替换为RStudio Viewer实际显示的端口号，可通过Viewer的地址栏查看。

关键说明 #

• 之前htmltools::save_html失效的原因：默认仅保留依赖的本地相对路径，同事设备无对应本地文件导致依赖缺失；而上述方案会将依赖嵌入或复制到HTML关联目录中。
• htmlwidgets::saveWidget对bscols无效是因为bscols是htmltools的标签组合对象，而非单个htmlwidget，因此需要用htmltools相关工具处理。

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