automatic-chunk-labels.qmd

---
title: "Testing"
---

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

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

See @fig-5:

`r knitr::knit(text = generate_chunk(5))`


And see @fig-9:

`r knitr::knit(text = generate_chunk(9))`