显示带有循环 rmarkdown 的 html 表答案

【问题标题】：Display html table with looping rmarkown显示带有循环 rmarkdown 的 html 表
【发布时间】：2019-08-19 17:54:45
【问题描述】：

我遇到了一些用 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 代码。我正在寻找任何解决方案。

提前致谢

【问题讨论】：

标签： r shiny r-markdown

【解决方案1】：

我对@987654321@ 不是很熟悉，但是这个怎么样：

```{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)
```

【讨论】：