Quero criar guias dinamicamente no quarto usando o conjunto de dados iris.
Uma aba para cada espécie e imprima a tabela para essa espécie na aba.
Aqui está meu código quarto até agora:
---
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')
```
:::
O código imprime as tabelas, mas elas não estão em suas próprias guias.
Alguém pode corrigir o código para que as guias sejam criadas conforme descrito?
Seu código é executado como está, se você substituir
com