Rmarkdown HTML 渲染问题

Question

我正在尝试打印 HTML 表格列表，但由于某种原因，当我编织文档时，我得到的是原始 HTML 代码用于输出，而不是渲染的表格。例子：

---
title: "html-render-issue"
output: html_document
---

library(tidyverse)
library(gtsummary)

# this table renders correctly:
tbl_summary(iris)

# but this table does not!!
tables <- list(tbl_summary(iris), tbl_summary(cars))
print(tables)

我不明白为什么会发生这种情况，我尝试使用 for 循环对列表进行索引

for (i in 1:2) {
  print(tables[[i]])
}

但这似乎也不起作用！缺少做tables[[1]]; tables[[2]]等（这确实有效），有没有办法迭代列表并获得我想要的输出？

Answer 1

results = "asis"考虑在chunk 中使用r然后代替printuseknitr::knit_print

```{r, results = "asis", echo = FALSE}
 library(gtsummary)

 # this table renders correctly:
 tbl_summary(iris)

 # but this table does not!!
 tables <- list(tbl_summary(iris), tbl_summary(cars))
 for (i in 1:2) {
   cat(knitr::knit_print(tables[[i]]))
 }
```

-输出