0

我有一个包含多个 html 文件的文件夹，我想将这些文件合并为 R 中的一个文件。可以合并为一个长文件或（理想情况下）一个带有目录的更精美的文件。

这是为了创建非常简单的文件来重现问题。

library(tableHTML)
   
   x=data.frame(x=c(1,2,3))
   y=data.frame(y=c(4,5,6))
   
   
   
   tableHTML::write_tableHTML(tableHTML(x), "x.html") 
   
   tableHTML::write_tableHTML(tableHTML(y), "y.html")

我发现这个包http://richardhooijmaijers.github.io/R3port/有html_combine功能。但是，当我尝试下面的代码时，说这不是原始 html 文件是行不通的。

  library(R3port) 
   
   
   html_combine(
     combine = getwd(), #or whichever folder the html files are stored at
     out = "to.html",
     toctheme = TRUE,
     css = paste0(system.file(package = "R3port"), "/style.css"),
     clean = 0
   )

我收到此错误：Error in html_combine(combine = getwd(), out = "to.html", toctheme = TRUE, : no raw html files to combine

我对 HTML 的经验很少，并且正在寻找一些关于使用这个包或任何其他工具来完成任务的指导。结合到 pdf 也应该可以工作（我可以使用 adobe 软件做到这一点，但需要通过 R 找到一种方法来自动化脚本）。

谢谢你

4

1 回答 1

3

似乎html_combine包的功能R3port需要文件具有rawhtml扩展名。您可以保存rawhtml而不是这样的html文件：


library(tableHTML)
library(R3port) 

x=data.frame(x=c(1,2,3))
y=data.frame(y=c(4,5,6))



tableHTML::write_tableHTML(tableHTML(x), "x.rawhtml") 

tableHTML::write_tableHTML(tableHTML(y), "y.rawhtml")

然后用于html_combine获取输出：

html_combine(
  out = "to.html",
  toctheme = TRUE,
  css = paste0(system.file(package = "R3port"), "/style.css"),
  clean = 0
)

结果是这样的：

html报告截图

于 2021-05-31T11:59:44.573 回答