child.qmd

```{r}
path <- fs::path("<<variable>>", ext = "csv")
cmd <- paste0("{{< downloadthis ", "'", path, "'", ' dname=<<variable>> label="Download the <<variable>> data" icon=database-fill-down type=info class=data-button id=<<variable>> >}}')
```


```{r}
#| results: asis
cat(cmd)
```

template.qmd

---
title: "testchild.qmd"
format: html
extension: downloadthis
---

## Quarto

Quarto enables you to weave together content and executable code into a finished document. To learn more about Quarto see <https://quarto.org>.


```{r}
#| results = "asis"
variable <- 'dudewhereismy'
src = knitr::knit_expand("child.qmd", delim = c("<<", ">>"))
res = knitr::knit_child(text = unlist(src), quiet = TRUE)
cat(res, sep = '\n')
```