我想使用 iris 数据集在四开本中动态创建标签。
每个物种一个标签，并在标签中打印该物种的表格。
这是我目前的四开本代码：
---
title: iris tabset
format:
html:
df-print: paged
knitr:
opts_chunk:
echo: false
---
```{r}
#| label: setup
#| include: false
# Libraries
library(tidyverse)
```
::: {.tabset}
```{r}
#| output: asis
res <- purrr::map_chr(unique(iris$Species), \(species) {
knitr::knit_child(text = c(
"## `r species`",
"",
"```{r}",
"#| echo: false",
"iris %>%",
" filter(Species == species) ",
"```",
"",
""
), envir = environment(), quiet = TRUE)
})
cat(res, sep = '\n')
```
:::
代码打印表格，但它们不在自己的选项卡中。
有人可以修复代码以便按照描述创建标签吗？
如果您替换，您的代码将按原样运行
和