可在 R markdown `asis` block 中 react ，不显示循环

Question

我想在我的 R markdown 文档中创建动态部分。为此，我使用输出类型为 asis 的 R block 。这些 block 包含由 reactable 包创建的表。

当我在 for 循环中创建表格时，无法打印表格。我知道人们通常必须在循环中的 print() 中包装绘图或类似内容，但这对我的情况没有影响。

如何打印表格？

---
title: "Test"
author: "Test"
date: "29 11 2021"
output: html_document
---

```{r include=FALSE}
library(reactable)

```

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

cat("\n\n## My header 1 \n\n")

reactable(data.frame(test = rnorm(3)))  ## This works

```



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



for (i in 1:3) {
  
  cat("\n\n## My header ", i+1, "\n\n")
  
  print(reactable(data.frame(test = rnorm(3))))  ## shows nothing
  
}

```

Answer 1

我刚刚发现，reactable 在底层使用了 htmlwidgets。因此可以将结果包装在 shiny::tagList() 中以循环显示它。

---
title: "Test"
author: "Test"
date: "29 11 2021"
output: html_document
---

```{r include=FALSE}
library(reactable)

```

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

cat("\n\n## My header 1 \n\n")

reactable(data.frame(test = rnorm(3)))  ## This works

```



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


for (i in 1:3) {
  
  cat("\n\n## My header ", i+1, "\n\n")
  
  print(shiny::tagList(reactable(data.frame(test = rnorm(3)))))  ## now it works
  
}

```