lotsa-chunks.qmd

---
title: "Testing with lots of plots"
---

```{r}
#| label: fun-generate-chunks
#| include: false

generate_chunk <- function(id) {
  paste0(
    c(
      paste0("```{r fig-", id, ", echo=FALSE}"),
      paste0("plot(density(rnorm(1000)), main = '", id, "')"),
      "```", "", ""
    ),
    sep = "\n")
}

n_figs <- 15

out <- NULL
for (i in 1:n_figs) {
  out <- c(out, generate_chunk(i))
}
```

See @fig-1 through `r paste0("@fig-", n_figs)` and all the other figs here:

`r paste(knitr::knit(text = out), collapse = "\n")`