将knitr :: kable（）输出保存到html文件R.

Question

我有一个knitr_kable输出，我想从R保存为HTML文档。我需要这个从我的R脚本自动运行，没有人为参与。 例如：

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

这有html输出但类是knitr_kable所以我不能把它写到表或html文件，因为它不能被强制转换为数据帧。

class(kable(dt, "html"))
[1] "knitr_kable"

有没有人有一种方法可以将这些kables中的一个保存为html文件？

---

我试过了：

library(xml2)
options(knitr.table.format = "html") 
write_html(kable(dt, "html"), "df.html")))

这有错误：

UseMethod（“write_html”）中的错误：没有适用于“write_html”的方法应用于类“knitr_kable”的对象

---

我的猜测是必须首先将knitr_kable对象强制转换为html对象，然后保存为html文件。 但我不知道该怎么做。

Answer 1

cat功能将满足您的需求。

library(knitr)
library(kableExtra)
library(magrittr)

dt <- mtcars[1:5, 1:6]

kable(dt, "html") %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  cat(., file = "df.html")

结果表如下所示：

Answer 2

在R脚本中另存为HTML

readr包有一个write_file函数，它将“按原样”写入数据，因此在使用knitr::kable创建的内容中使用knitr::kable 。

dt <- mtcars[1:5, 1:6]
kable_out <- knitr::kable(dt, "html") %>% kableExtra::kable_styling(bootstrap_options = c("striped", "hover"))
readr::write_file(kable_out, "kable_out.html")

或者：在R Studio中另存为temp.Rmd

如果在R Studio中将以下内容保存为R Markdown文件（例如，temp.Rmd），则可以通过单击RStudio左上角的编织来创建HTML。

---
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(dplyr)
```

## Table 1

```{r table1, echo = FALSE}
dt <- mtcars[1:5, 1:6]
knitr::kable(dt, "html") %>% kableExtra::kable_styling(bootstrap_options = c("striped", "hover"))
```

单击R Studio中的Knit