如何将Shiny Dashboard中的HTML Widget通过Rmarkdown导出为Word文档？

这个问题很常见——Word对原生HTML的支持非常有限，尤其是依赖JavaScript的htmlwidgets，直接嵌入肯定会出问题。我给你分两种场景来解决：

一、解决简单HTML元素（链接、图片）的显示问题 #

你示例里用原生HTML写的链接和图片，Word没法正确解析。换成Rmarkdown原生语法就可以完美解决：

修改后的Rmarkdown代码 #

---
title: 'Title'
output:
  word_document:
    md_extensions: +markdown_in_html_blocks
---

[Text with link](https://google.com)

![Test Image](test.png)

这样导出的Word文档里，链接会是可点击的超链接，图片也能正常显示。

二、解决htmlwidgets（如plotly、DT、leaflet）的导出问题 #

Word不支持运行JavaScript，所以交互式的htmlwidgets没法直接嵌入。我们需要把它们转换成静态内容（图片或静态表格）：

方法1：用webshot2将htmlwidgets转为图片 #

这个方法适用于所有htmlwidgets，通过截图把交互式组件转成静态图片：

# 先安装依赖包
install.packages(c("webshot2", "htmlwidgets"))

library(plotly)
library(htmlwidgets)
library(webshot2)
library(knitr)

# 生成一个plotly图表
p <- plot_ly(mtcars, x = ~wt, y = ~mpg, type = "scatter", mode = "markers")

# 保存为临时HTML文件
saveWidget(p, "temp_plot.html")

# 截图为PNG
webshot("temp_plot.html", "plotly_plot.png", vwidth = 800, vheight = 600)

# 在Rmarkdown中插入图片
include_graphics("plotly_plot.png")

方法2：用officer+rvg生成矢量图形（更高质量） #

如果需要高清的矢量图输出，适合ggplot或部分可转换的htmlwidgets：

install.packages(c("officer", "rvg", "plotly"))

library(officer)
library(rvg)
library(plotly)

# 生成plotly图表
p <- plot_ly(mtcars, x = ~wt, y = ~mpg)

# 创建Word文档并插入矢量图形
doc <- read_docx()
doc <- body_add_dml(doc, code = print(p))
# 保存文档
print(doc, target = "output_with_plot.docx")

方法3：替换交互式表格（如DT）为静态Word表格 #

如果是DT这类交互式表格，Word不支持交互，建议用flextable或knitr::kable()生成静态表格：

install.packages(c("flextable", "DT"))

library(flextable)
library(DT)

# 用flextable生成可嵌入Word的静态表格
ft <- flextable(mtcars[1:5, ])
ft <- autofit(ft)
ft

关键提醒 #

• 导出Word时，尽量避免直接写原生HTML，优先用Rmarkdown的原生语法（链接、图片、列表等）。
• 所有依赖JS的交互式组件，必须转为静态内容才能在Word里正常显示，没有办法让Word支持交互式的htmlwidgets。

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