Dynamic code chunks

main.rmd

```{r setup, include = FALSE}
suppressPackageStartupMessages(library(tidyverse))
suppressPackageStartupMessages(library(rlang))
```


```{r, echo = FALSE, results='asis'}
walk(
  names(mtcars),
  ~{
    curr_var <- .x
    x <- knitr::knit_child("plot.Rmd", envir = environment(), quiet = TRUE)
    cat(x, sep = '\n')
  }
)
```

plot.Rmd

## `r paste0(curr_var, " vs mpg")`

```{r,  echo = FALSE}
mtcars %>% 
  ggplot() +
  geom_point(aes(x = mpg, y = !! parse_expr(curr_var)))
```