如何将diffObj生成的差异内容保存为浏览器可正常读取的HTML文件？

你遇到的问题是save_html默认对输入内容做了HTML转义处理：diffPrint生成的diff_content本身是原始HTML字符串，save_html会把其中的<、>等标签符号转义为<、>这类字符实体，最终浏览器打开时就会直接显示源码而非渲染成对比表格。

有两种可行方案，核心都是避免HTML内容被转义：

方案1：直接写入文件（推荐） #

直接用R基础函数writeLines写入HTML内容，无需额外依赖htmltools：

library(diffobj)

file_old <- 1:10
file_new <- c(1:8, 23, 24)
file_name_diff <- "cc_page_diffs/test_diff.html"

diff_content <- diffPrint(current = file_old, target = file_new, format = "html")
# 直接将原生HTML内容写入文件
writeLines(as.character(diff_content), con = file_name_diff)

方案2：搭配htmltools使用时标记原生HTML #

如果需要使用save_html的相关特性，需要用htmltools::HTML()标记内容为原生HTML，避免转义：

library(diffobj)
library(htmltools)

file_old <- 1:10
file_new <- c(1:8, 23, 24)
file_name_diff <- "cc_page_diffs/test_diff.html"

diff_content <- diffPrint(current = file_old, target = file_new, format = "html")
# 标记为原生HTML后再保存
save_html(HTML(as.character(diff_content)), file = file_name_diff)

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