gt_tbl_list.qmd

---
title: "gt table list multi-format knit"
format: 
  html: default
  pdf: default
---

```{r}
library(gt)
nested_mtcars <- dplyr::nest_by(mtcars, cyl, .keep = TRUE)

tbl_list <- purrr::map(
  nested_mtcars$data,
  \(x) {
    gt(x)
  }
)
```


```{r}
#| results: asis
for (i in seq_along(tbl_list)) {
  if (knitr::is_latex_output()) {
    structure(
       cat(gt::as_latex(tbl_list[[i]])),
       class = "knit_asis"
    )
  } else {
      print(tbl_list[[i]])
  }
}
```