使用循环rmarkown显示html表格

Question

我在使用 Mardown 显示某些 html 表格时遇到了困难。我用闪亮的代码编写了一个应用程序，它应该使用包“table1”来计算一些统计数据和描述性统计数据。

Table1 允许我获得 html 格式的完整描述性统计数据。这些表格通过应用程序导出为 html 文件，并使用 chrome 转换为 pdf。事实上，有些表格太大，在 pdf 转换完成后会被剪切。因此，我尝试通过按因子变量对表进行分组来拆分表。

这是一个最小的可重现示例：

```{r, echo = FALSE, results='asis', warning=FALSE}

library(table1)
library(dplyr)
library(htmltools)
library(knitr)
var <- levels(iris$Species)

vect_table <- vector()

for (i in var) {

  df <- iris %>% filter(Species == i )

  tb <- table1(~., data = df)

  vect_table <- append(vect_table, tb)


}

for (j in 1: length(vect_table)) {

  print(kable(vect_table[j]), caption = paste("Specie : ",var[j] ))



}

```

问题是，我在输出（html）中没有显示表格，只有 html 代码。我正在寻找任何解决方案。

提前致谢

Answer 1

我不太熟悉

table1

，但是这个怎么样：

```{r iris, echo = FALSE, results = 'asis'}
library(table1)
library(dplyr)
library(htmltools)
library(knitr)

results <- character()
iris_split <- split(iris, levels(iris$Species))
for (i in 1:length(iris_split)) {


  tb <- table1(~., data = iris_split[[i]])

  results <- c(results, "Specie : ", names(iris_split)[i], tb)
}

asis_output(results)
```

Answer 2

好问题，这可以很好地缩进，但不幸的是其他格式会丢失（例如粗体标签、

topclass=

等）

```{r,results="asis"}

for (x in y){

table1(...) %>% knitr::kable() %>% print

}

```