How to dynamically generate sections with headings and print tables

[abalter]

Description

I have the following page:

some_page.qmd

# Some Page

```{r, include=F}
library(tidyverse)
library(flextable)
data = data.frame(
  year = c(2021, 2022, 2023),
  budget = c("$100", "$200", "$300"),
  profit = c("$100", "$200", "$300")
)
```


```{r, echo=F, results="asis"}
for (year in data$year)
{
  cat(str_glue("## Year: {year}\n"))
  ft = 
    data %>% 
    filter(year == year) %>% 
    flextable()
  
  ft
  
  cat("\n\n")
}
```

As shown, I get the following html:

<section id="some-page" class="level1">
<h1>Some Page</h1>
<section id="year-2021" class="level2">
<h2 class="anchored" data-anchor-id="year-2021">Year: 2021<a class="anchorjs-link " aria-label="Anchor" data-anchorjs-icon="" href="#year-2021" style="font: 1em / 1 anchorjs-icons; margin-left: 0.1875em; padding-right: 0.1875em; padding-left: 0.1875em;"></a></h2>
</section>
<section id="year-2022" class="level2">
<h2 class="anchored" data-anchor-id="year-2022">Year: 2022<a class="anchorjs-link " aria-label="Anchor" data-anchorjs-icon="" href="#year-2022" style="font: 1em / 1 anchorjs-icons; margin-left: 0.1875em; padding-right: 0.1875em; padding-left: 0.1875em;"></a></h2>
</section>
<section id="year-2023" class="level2">
<h2 class="anchored" data-anchor-id="year-2023">Year: 2023<a class="anchorjs-link " aria-label="Anchor" data-anchorjs-icon="" href="#year-2023" style="font: 1em / 1 anchorjs-icons; margin-left: 0.1875em; padding-right: 0.1875em; padding-left: 0.1875em;"></a></h2>
</section>
</section>

If I use print(ft) I get this:

<section id="some-page" class="level1">
<h1>Some Page</h1>
<section id="year-2021a-flextable-object." class="level2">
<h2 class="anchored" data-anchor-id="year-2021a-flextable-object.">Year: 2021a flextable object.<a class="anchorjs-link " aria-label="Anchor" data-anchorjs-icon="" href="#year-2021a-flextable-object." style="font: 1em / 1 anchorjs-icons; margin-left: 0.1875em; padding-right: 0.1875em; padding-left: 0.1875em;"></a></h2>
<p>col_keys: <code>year</code>, <code>budget</code>, <code>profit</code> header has 1 row(s) body has 3 row(s) original dataset sample: year budget profit 1 2021 $100 $100 2 2022 $200 $200 3 2023 $300 $300</p>
</section>
<section id="year-2022a-flextable-object." class="level2">
<h2 class="anchored" data-anchor-id="year-2022a-flextable-object.">Year: 2022a flextable object.<a class="anchorjs-link " aria-label="Anchor" data-anchorjs-icon="" href="#year-2022a-flextable-object." style="font: 1em / 1 anchorjs-icons; margin-left: 0.1875em; padding-right: 0.1875em; padding-left: 0.1875em;"></a></h2>
<p>col_keys: <code>year</code>, <code>budget</code>, <code>profit</code> header has 1 row(s) body has 3 row(s) original dataset sample: year budget profit 1 2021 $100 $100 2 2022 $200 $200 3 2023 $300 $300</p>
</section>
<section id="year-2023a-flextable-object." class="level2">
<h2 class="anchored" data-anchor-id="year-2023a-flextable-object.">Year: 2023a flextable object.<a class="anchorjs-link " aria-label="Anchor" data-anchorjs-icon="" href="#year-2023a-flextable-object." style="font: 1em / 1 anchorjs-icons; margin-left: 0.1875em; padding-right: 0.1875em; padding-left: 0.1875em;"></a></h2>
<p>col_keys: <code>year</code>, <code>budget</code>, <code>profit</code> header has 1 row(s) body has 3 row(s) original dataset sample: year budget profit 1 2021 $100 $100 2 2022 $200 $200 3 2023 $300 $300</p>
</section>
</section>

If I take away results="asis", as expected, I get:

<section id="some-page" class="level1">
<h1>Some Page</h1>
<div class="cell">
<div class="cell-output cell-output-stdout">
<pre><code>## Year: 2021a flextable object.
col_keys: `year`, `budget`, `profit` 
header has 1 row(s) 
body has 3 row(s) 
original dataset sample: 
  year budget profit
1 2021   $100   $100
2 2022   $200   $200
3 2023   $300   $300


## Year: 2022a flextable object.
col_keys: `year`, `budget`, `profit` 
header has 1 row(s) 
body has 3 row(s) 
original dataset sample: 
  year budget profit
1 2021   $100   $100
2 2022   $200   $200
3 2023   $300   $300

...
...

[mcanouil]

This has been discussed in many places for Rmarkdown and Quarto, for short use knit_child.

• https://github.com/quarto-dev/quarto-examples/blob/main/tabsets/tabsets-from-r-chunks/index.qmd
• Using tabs in Quarto #9481

Note that Quarto uses and recommends YAML style for options, not inline as you used.

[abalter]

I'll send you a check for $100 if you can make my example render correctly in html, docx, and pdf format using the correct YAML approach.

[Steinthal]

Well, here we go:

---
title: "Some Page"
format: 
  html: default
  pdf: default
  docx: default
---


```{r}
#| warning: false
#| message: false
#| echo: false

library(tidyverse)
library(flextable)
knitr::opts_knit$set(output.dir = "./")
data = data.frame(
  year = c(2021, 2022, 2023),
  budget = c("$100", "$200", "$300"),
  profit = c("$100", "$200", "$300")
)
```


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

for (y in data$year)
{
  cat(str_glue("## Year: {y}\n"))
  ft <- data |>
    filter(year == y) |>
    flextable()
  
  flextable_to_rmd(ft)
  cat("\n\n")
}
```

[abalter]

Well dang! That works. Where do I send the check?

[Steinthal]

Just send it to the Quarto development team …