使用data.table对象生成动态r-markdown块

我想用r markdown中的物种循环来自动化这段代码。

---
title: "R Notebook"
output:
  html_document:
    df_print: paged
---

```{r setup, echo=FALSE}
library(knitr)
library(data.table)
iris.dt <- data.table(iris)
iris.species <- stringr::str_to_title(as.character(unique(iris.dt$Species)))
```


### View by Species {.tabset .tabset-fade .tabset-pills}
#### Setosa
```{r}
iris.dt[Species == 'setosa']
```
#### Versicolor
```{r}
iris.dt[Species == 'versicolor']
```
#### Virginica
```{r}
iris.dt[Species == 'virginica']
```

我可以使用 knit_expand (实际上我的问题和这个问题类似 Generate Dynamic R Markdown Blocks )但我很难显示其他输入,如data.table。这是我的尝试:

### View by Species automated {.tabset .tabset-fade .tabset-pills}
```{r run-numeric-md, include=FALSE}
out = NULL
for (i in iris.species) {
  out = c(out, knit_expand(text='#### {{i}}'))
}
```

`r paste(knit(text = out), collapse = '\n')`

下面是笔记本的概述。

谢谢你的帮助。