create chunk labels when using knitr::knit_child

[nithinmkp]

Description

I am trying to create a dynamic report in quarto using knitr_knit_child.

## Analysis for {{island}}


```{r}
#| echo: false
peng_data <- penguins |> 
    filter(species == params$species & island =="{{island}}")  |> 
    drop_na()

```

::: {#fig-penguins-{{island}}}
```{r}
#| echo: false
ggplot(peng_data, aes(x=bill_length_mm, y=bill_depth_mm,fill = sex)) +
  geom_point(shape=21, size=3, alpha=0.7) +
  labs(
    x = "Bill Length (mm)",
    y = "Bill Depth (mm)",
  )
```
Scatter plot of bill dimensions for penguins on {{island}}
:::

This is my child.qmd. As you can see this helps me in generating figure caption and also figure cross references. What I am however not able to do is generate code chunk labels also within this set up so that fugures produced while knitting will have name of the code chunk as name of figure files instead of 'unnamed-chunk' something.

I know if we are using knit_text() and then use cat function to generate code chunk also this can be done. But is there a way to do in this set up?

[cderv]

Can you share full example with the parent doc using the child please ? This will give us context on how you are inserting {{island}}.

Thank you !

[nithinmkp]

Sure. Here you go!

---
title: "Penguins"
format: 
  html: default
params:
  species: Adelie
---

The `r params$species` penguins can be found on the island(s) of: `r glue_collapse(penguins |> filter(species == params$species) |> count(island) |> pluck(1), sep = ", ", last = ", and ")`. The total number of `r params$species` penguins in the dataset is `r penguins |> filter(species == params$species) |> nrow()`.

Let us analyse the `r params$species` penguins by island. The results for each island are shown below.


```{r}
#| include: false

islands <- penguins |> filter(species == params$species) |> distinct(island) |> arrange(island) |> pull()

expanded <- map(islands, function(island){
    knitr::knit_expand(
        "child_penguins.qmd",
        island=island
    )

}
)  |> 
    flatten()
parsed_child <- knitr::knit_child(text = unlist(expanded))
```

`r parsed_child`

[cderv]

Thanks I understand now.

As you are using knit_expand(), you should be able to use template variable for your label

#| label: penguins-{{island}}

[nithinmkp]

Thanks. That was pretty neat!! I did something weird.
inside my child document, i replaced my figure code chunk like this

```{r}
#| echo: false
#| output: asis

text <- knitr::knit_expand(text = c(
  "```{r}",
  "#| echo: false",
  "#| label: fig-penguins-{{params$species}}-{{island}}",
  "#| fig-cap: 'Scatter plot of bill dimensions for penguins on {{island}}'",
  "ggplot(peng_data, aes(x=bill_length_mm, y=bill_depth_mm, fill=sex)) +",
  "  geom_point(shape=21, size=3, alpha=0.7) +",
  "  labs(",
  "    x = 'Bill Length (mm)',",
  "    y = 'Bill Depth (mm)'",
  "  )",
  "```"
))
res <- knitr::knit_child(text = text, quiet = TRUE)
cat(res, sep = "\n")
```