如何在R中自动将knitr::kable()输出保存为HTML文件？

我来帮你搞定这个无需人工干预保存knitr_kable HTML表格的问题！其实核心点在于knitr_kable对象本质是带有特定属性的字符向量，我们可以通过两种简单的方式直接保存它：

方法一：使用kableExtra的save_kable函数（推荐） #

kableExtra包专门提供了save_kable函数，能直接处理knitr_kable对象，一步完成保存，不需要额外转换：

library(knitr)
library(kableExtra)

# 生成示例表格
dt <- mtcars[1:5, 1:6]
kable_obj <- kable(dt, "html") %>% kable_styling(bootstrap_options = c("striped", "hover"))

# 直接保存为HTML文件
save_kable(kable_obj, file = "df.html")

这个方法最省心，函数内部已经帮你处理了对象类型转换的问题，而且还支持保存为PDF等其他格式。

方法二：手动转换为字符串后写入文件 #

如果你不想额外依赖kableExtra的这个函数，也可以把knitr_kable对象先转换成纯HTML字符串，再用基础R的writeLines写入文件：

library(knitr)
library(kableExtra)

dt <- mtcars[1:5, 1:6]
kable_obj <- kable(dt, "html") %>% kable_styling(bootstrap_options = c("striped", "hover"))

# 将knitr_kable对象转为纯HTML字符串
html_str <- as.character(kable_obj)

# 写入HTML文件
writeLines(html_str, con = "df.html")

为什么之前的xml2方法报错？ #

你用xml2::write_html报错是因为这个函数要求输入的是xml_document类对象，而knitr_kable是knitr自定义的类，两者不兼容。如果一定要用xml2的话，也可以先转成字符串再解析成xml对象，但完全没必要——直接保存字符串更简单高效。

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