targets::tar_dir({ # tar_dir() runs code from a temporary directory.
  # Parameterized Quarto:
  lines <- c(
    "---",
    "title: 'report.qmd file'",
    "output_format: html_document",
    "params:",
    "  par: variable:",
    "    \"mpg\"",
    "---",
    "This report is rendered with variable = `r params$variable`.",
    "```{r}",
    "library(ggplot2)",
    "ggplot(mtcars, aes(.data[[params$variable]], hp)) +",
    "  geom_point()",
    "```"
  )
  writeLines(lines, "report.qmd")

  targets::tar_script({
    library(tarchetypes)
    list(
      tar_quarto_rep(
        report,
        path = "report.qmd",
        execute_params = tibble::tibble(variable = c("mpg", "disp"))
      )
    )
  }, ask = FALSE)
})

library(tarchetypes)

params <- tibble::tibble(
  variable = c("mpg", "disp")
)

list(tar_quarto_rep(report, path = "report.qmd", execute_params = params))

---
title: "test"
format: html
params:
  variable:
    "mpg"
---

This report is rendered with variable = `r params$variable`.

```{r}
library(ggplot2)

ggplot(mtcars, aes(.data[[params$variable]], hp)) +
  geom_point()
# insert three backticks