webshot2无法转换本地HTML为PNG，求Highcharts/Leaflet导出PDF/DOCX方案

一、修复webshot2生成空白PNG的问题 #

1. 修正文件路径协议 #

webshot2直接使用绝对路径无法正确识别本地HTML文件，改用file://协议配合标准化路径：

# 生成标准化的本地文件URL
chart1_url <- paste0("file://", normalizePath(file.path(temp_dir, "value_bar_chart.html")))
webshot2::webshot(url = chart1_url, file = file.path(temp_dir, "value_bar_chart.png"), delay = 5)

2. 确保HTML文件自包含 #

显式设置selfcontained = TRUE，避免依赖外部资源加载失败：

# 保存Highcharts为自包含HTML
htmlwidgets::saveWidget(value_bar_chart(), 
                        file.path(temp_dir, "value_bar_chart.html"), 
                        selfcontained = TRUE)
# 替代mapshot，直接保存Leaflet为自包含HTML
htmlwidgets::saveWidget(leaflet_map1(), 
                        file.path(temp_dir, "leaflet_map1.html"), 
                        selfcontained = TRUE)

3. 增加渲染延迟与等待条件 #

给webshot2设置足够延迟，或等待特定元素加载完成（适配Highcharts和Leaflet的渲染特性）：

# 针对Highcharts，等待图表容器加载
webshot2::webshot(url = chart1_url, 
                  file = file.path(temp_dir, "value_bar_chart.png"), 
                  delay = 8,
                  wait_for = ".highcharts-container")

# 针对Leaflet，等待地图容器加载
webshot2::webshot(url = map1_url, 
                  file = file.path(temp_dir, "leaflet_map1.png"), 
                  delay = 10,
                  wait_for = ".leaflet-container")

4. 使用临时目录避免权限冲突 #

Shiny Server中固定路径易引发权限问题，改用tempdir()存储临时文件：

output$downloadReport <- downloadHandler(
  filename = function() {
    "ComplexAppReport.pdf"
  },
  content = function(file) {
    temp_dir <- tempdir()
    
    # 保存图表和地图到临时目录
    htmlwidgets::saveWidget(value_bar_chart(), file.path(temp_dir, "value_bar_chart.html"), selfcontained = TRUE)
    htmlwidgets::saveWidget(value_bar_chart2(), file.path(temp_dir, "value_bar_chart2.html"), selfcontained = TRUE)
    htmlwidgets::saveWidget(leaflet_map1(), file.path(temp_dir, "leaflet_map1.html"), selfcontained = TRUE)
    htmlwidgets::saveWidget(leaflet_map2(), file.path(temp_dir, "leaflet_map2.html"), selfcontained = TRUE)
    
    # 转换为PNG
    chart1_url <- paste0("file://", normalizePath(file.path(temp_dir, "value_bar_chart.html")))
    webshot2::webshot(url = chart1_url, file = file.path(temp_dir, "value_bar_chart.png"), delay = 8, wait_for = ".highcharts-container")
    chart2_url <- paste0("file://", normalizePath(file.path(temp_dir, "value_bar_chart2.html")))
    webshot2::webshot(url = chart2_url, file = file.path(temp_dir, "value_bar_chart2.png"), delay = 8, wait_for = ".highcharts-container")
    map1_url <- paste0("file://", normalizePath(file.path(temp_dir, "leaflet_map1.html")))
    webshot2::webshot(url = map1_url, file = file.path(temp_dir, "leaflet_map1.png"), delay = 10, wait_for = ".leaflet-container")
    map2_url <- paste0("file://", normalizePath(file.path(temp_dir, "leaflet_map2.html")))
    webshot2::webshot(url = map2_url, file = file.path(temp_dir, "leaflet_map2.png"), delay = 10, wait_for = ".leaflet-container")
    
    # 生成TeX并转换为PDF
    tex_file <- file.path(temp_dir, "temp.tex")
    tex_content <- paste(
      "\\documentclass{article}",
      "\\usepackage{graphicx}",
      "\\begin{document}",
      "\\includegraphics[width=0.8\\textwidth]{value_bar_chart.png}",
      "\\includegraphics[width=0.8\\textwidth]{value_bar_chart2.png}",
      "\\includegraphics[width=0.8\\textwidth]{leaflet_map1.png}",
      "\\includegraphics[width=0.8\\textwidth]{leaflet_map2.png}",
      "\\end{document}",
      sep = "\n"
    )
    writeLines(tex_content, tex_file)
    tinytex::pdflatex(tex_file, output_dir = temp_dir)
    
    file.copy(file.path(temp_dir, "temp.pdf"), file)
  },
  contentType = "application/pdf"
)

二、更简便的导出方案：使用RMarkdown直接生成PDF/DOCX #

无需转换为PNG，直接将Highcharts和Leaflet嵌入RMarkdown文档，一步生成目标文件：

1. 创建RMarkdown模板（report_template.Rmd） #

---
title: "Complex App Report"
output: 
  pdf_document: default
  word_document: default
---

## 数据图表

```{r echo=FALSE, warning=FALSE, message=FALSE}
library(highcharter)
library(leaflet)

# 调用你的图表生成函数
value_bar_chart()
value_bar_chart2()

地理地图 #

# 调用你的地图生成函数
leaflet_map1()
leaflet_map2()

### 2. 在Shiny中调用RMarkdown渲染并下载
```r
output$downloadReport <- downloadHandler(
  filename = function() {
    paste0("ComplexAppReport_", Sys.Date(), ".pdf") # 导出DOCX时改为".docx"
  },
  content = function(file) {
    rmarkdown::render("report_template.Rmd", 
                      output_file = file,
                      quiet = TRUE)
  },
  contentType = "application/pdf" # 导出DOCX时改为"application/vnd.openxmlformats-officedocument.wordprocessingml.document"
)

优势 #

• 无需中间转换步骤，减少出错概率
• PDF中保留图表/地图的矢量特性，清晰度更高
• 同时支持PDF和DOCX格式，仅需修改模板的output参数

三、DOCX导出补充：使用officer包手动控制格式 #

如果需要精细调整DOCX布局，可使用officer包将htmlwidgets转换为图片插入：

library(officer)
library(magrittr)

output$downloadDOCX <- downloadHandler(
  filename = function() {
    "ComplexAppReport.docx"
  },
  content = function(file) {
    temp_dir <- tempdir()
    
    # 将图表转换为临时PNG
    htmlwidgets::saveWidget(value_bar_chart(), file.path(temp_dir, "chart1.html"), selfcontained = TRUE)
    webshot2::webshot(paste0("file://", normalizePath(file.path(temp_dir, "chart1.html"))), 
                      file.path(temp_dir, "chart1.png"), delay = 8)
    
    # 创建DOCX文档并添加内容
    doc <- read_docx() %>%
      body_add_par("数据图表", style = "heading 1") %>%
      body_add_img(src = file.path(temp_dir, "chart1.png"), width = 6, height = 4) %>%
      body_add_par("地理地图", style = "heading 1") %>%
      # 重复添加其他图表/地图
      print(target = file)
  },
  contentType = "application/vnd.openxmlformats-officedocument.wordprocessingml.document"
)

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