Dynamic table names when using parameters in quarto

[nithinmkp]

Description

Hello all,
I want to have dynamic table names (tables are based on computations, mostly in R) based on parameters using quarto document. How can this be done?

---
title: analysis of `r params$cyl` cylinder cars
format: html
params:
  cyl : 4
---
We present analysis of `r params$cyl` cylinder cars

```{r}
library(tidyverse)
```
```{r}
# label: tbl-summary
# tbl-cap: sumamry of `r params$cyl` cylinder cars

mtcars |>
filter(cyl== params$cyl) |>
select(-cyl) |>
group_by(gear) |>
summarise(avg_mgp =mean (mpg,na.rm=TRUE))
```

[mcanouil]

What do you mean by "table names"?

The recommend way to use expression in captions is to use cross-ref div:

::: {#fig-amazing}

```{r}
whatever
```

A caption using `{r} params[["value"]]`
::: 

The legacy knitr approach:

```{r}
#| label: fig-amazing
#| fig-cap: !expr 'paste("A caption using", params[["value"]])'
whatever
```

In the future, please spend a bit more time searching through previous discussions:

• How to use expressions in subcaptions #7308

[nithinmkp]

Thanks. But what about making the label dynamic too. I actually want to use this for knitr::child_document or knutr::knit_expand

…

On Wed, Oct 30, 2024 at 10:58 PM Mickaël Canouil ***@***.***> wrote: The recommend way is to use cross-ref div: ::: {#fig-amazing} ```{r} whatever ``` A caption using `{r} params[["value"]]` ::: The legacy knitr approach: ```{r} #| label: fig-amazing #| fig-cap: !expr 'paste("A caption using", params[["value"]])' whatever ``` — Reply to this email directly, view it on GitHub <#11249 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/APQKHS7ABDDFYGUE7WPQ5N3Z6EJMTAVCNFSM6AAAAABQ4TOPFKVHI2DSMVQWIX3LMV43URDJONRXK43TNFXW4Q3PNVWWK3TUHMYTCMJQGMYTSNY> . You are receiving this because you authored the thread.Message ID: ***@***.*** com>

[mcanouil]

Use those functions to generate the whole code cell including the label.

[nithinmkp]

I could generate the captions. but dynamically referring them is not happening. For all tables, it is taking the last generated table number
This is the template i am using for child documents

## Gapminder for {{country}}

::: {#tbl-gapminder_{{"country"}}}

```{r}
#| echo: false
gapminder |>
filter(continent == params$cont, 
       country == "{{country}}") |>
       pivot_longer(cols = -c(1:3)) |>
group_by(name) |>
summarize(mean = mean(value, na.rm = TRUE),
          sd = sd(value, na.rm = TRUE)) |>
gt()
```
Summary statistics of Gapminder dataset of {{country}}

:::

The `r glue::glue("@tbl-gapminder_{{"country"}}")` shows the summary statistics for  {{country}}  

main file

---
title: Gapminder data continent wise analysis- `r params$cont`
author:
  - Nithin M
date: '`r format(Sys.Date(), "%B %d, %Y")`'
format: 
  html: default
params:
  cont: Asia
  
fontsize: 12pt
---

# Country Wise Analysis
```{r}
#| results: hide
#| echo: false
library(gapminder)
library(tidyverse)
library(gt)
countries <- gapminder |>
             filter(continent == params$cont) |>
             distinct(country) |>
             pull()

expanded_child <- countries |> 
  map(function(country) knitr::knit_expand("temp2.qmd", country = country))  |> 
  flatten()

parsed_child <- knitr::knit_child(text = unlist(expanded_child))

r parsed_child

[mcanouil]

Could you check the formatting of your code?

The r glue::glue("@tbl-gapminder_{{"country"}}") shows the summary statistics for {{country}}

This looks very weird, double quotes inside double quotes.

date: 'r format(Sys.Date(), "%B %d, %Y")'

You should not do this and actually have no reason to.
https://quarto.org/docs/reference/dates.html

[nithinmkp]

yes. dates was my bad. actually copied little bit from rmarkdown document. What i really want to achieve is to refer to table generated from the child document. There will be a table div labbeled "gapminder_India" for example. How would i refer to this dynamically?

[mcanouil]

Your code is malformed so I can't use it, here is one that works:

---
format: html
---

```{r}
#| include: false
for (ipkg in c("palmerpenguins", "gt", "dplyr")) {
  if (!require(ipkg, character.only = TRUE)) {
    install.packages(ipkg)
    library(ipkg, character.only = TRUE)
  }
}
```

Below are tables of the first six rows of the Palmer penguins dataset by species:

```{r}
#| echo: false
#| output: asis
cat(
  sprintf(
    "- `%s` (@tbl-%s)",
    levels(penguins[["species"]]),
    levels(penguins[["species"]])
  ),
  sep = "\n"
)

for (ispecies in levels(penguins[["species"]])) {
  tab <- penguins |>
    filter(species %in% ispecies) |>
    select(-species) |>
    head() |>
    gt() |>
    tab_header(title = ispecies)
  cat(sep = "\n", knitr::knit_child(quiet = TRUE, text = c(
    "```{r}",
    "#| echo: false",
    sprintf("#| tbl-cap: %s", ispecies),
    sprintf("#| label: tbl-%s", ispecies),
    "tab",
    "```"
  )))
}
```

Source: https://mickael.canouil.fr/posts/2023-03-05-quarto-auto-table-crossref/

[nithinmkp]

I dont know why it does not work for you, Thanks.
This is the issue. While i refer, all tables get the same number

[mcanouil]

I dont know why it does not work for you, Thanks.

Look at how formatted is your post/code.

As I showed, it works in Quarto, now it's for you to debug your R/knitr code.
You can use keep-md: true to see what is the intermediate markdown you are producing.

[nithinmkp]

Thanks and sorry. Figured that out, but i still cant manage when the names to pass have special characters between them

[mcanouil]

You need to clean those names as references should only be alphanumerical mostly ASCII.

[nithinmkp]

Thanks. That helped me solve it!!

…

On Sat, Nov 2, 2024 at 11:59 PM Mickaël Canouil ***@***.***> wrote: You need to clean those names as references should only be alphanumerical mostly ASCII. — Reply to this email directly, view it on GitHub <#11249 (reply in thread)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/APQKHS6HOQRLFYIALELXX6TZ6UKX7AVCNFSM6AAAAABQ4TOPFKVHI2DSMVQWIX3LMV43URDJONRXK43TNFXW4Q3PNVWWK3TUHMYTCMJTGA4DIMI> . You are receiving this because you authored the thread.Message ID: ***@***.*** com>