child.qmd

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

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

template.qmd

---
title: "template"
format: html
---


```{r}
#| results = "asis"
src = knitr::knit_expand('child.qmd')

res = knitr::knit_child(text = unlist(src), quiet = TRUE)
cat(res, sep = '\n')
```