问题描述
下面的代码比较两个向量并创建差异，diff_content，格式为“HTML”。
在 RStudio 的控制台中键入 diff_content 会在查看器中显示此表：
但是，当我用 diff_content 保存 save_html 然后尝试使用 RStudio（或 Chrome）打开 HTML 文件时，它会将 HTML 显示为文本
<!DOCTYPE html> <html> <head> <Meta http-equiv="Content-Type" content="text/html; charset=utf-8"/> <style type='text/css'> /* Structural CSS ------------------------------------------------------------*/ /* * TBD whether we want a more fully table like structure; some of the visual * cues provided by the current set-up are useful (line wraps,etc.) */ DIV.diffobj-container PRE.diffobj-content { white-space: pre-wrap; margin: 0; } DIV.diffobj-container DIV.diffobj-row { width: 100%; font-family: monospace; display: table; table-layout: fixed; } DIV.diffobj-container DIV.diffobj-line { width: auto; display: table-cell; overflow: hidden; } DIV.diffobj-container DIV.diffobj-line>DIV { width: 100%; display: table; table-layout: auto; } DIV.diffobj-container DIV.diffobj-line.banner>DIV { display: table; table-layout: auto; /* set to fixed in JS */ } DIV.diffobj-container DIV.diffobj-text { display: table-cell; width: 100%; } DIV.diffobj-container DIV.diffobj-gutter { display: table-cell; padding: 0 0.2em; } DIV.diffobj-container DIV.diffobj-gutter DIV { display: table-cell; } #diffobj_content_Meta DIV.diffobj-container DIV.diffobj-row { width: auto; } #diffobj_banner_Meta DIV.diffobj-container DIV.diffobj-line.banner>DIV { table-layout: auto; } #diffobj_outer { overflow: hidden; } /* Summary -------------------------------------------------------------------*/ DIV.diffobj-container...
如何保存 diff_content 以便在使用网络浏览器打开文件时再次看到格式良好的表格？
R 脚本
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")
save_html(diff_content,file = file_name_diff )
解决方法
我不确定 save_html 函数在这种情况下是否真的有用。您可以将 diff_content 转换为字符，这将生成您可以写入文件的 HTML。试试这个。
writeLines(as.character(diff_content),file_name_diff)