Tables type GT not printing inside loop in Rmarkdown

Question

I’m programming a report generator that exports html. I use two files, the first is a loop that will determine the number of reports and within my template. Rmd I have another loop to print several tables.

The . rmd below works well

---
title: "Report"
author: "Me"
date: "`r format(Sys.time(), '%d de %B de %Y')`"
output:
  html_document
---

# First Section    

{r , results='asis', echo=FALSE, message=FALSE}
library(tidyverse)
library(gt)

i=1

df <- cbind(m=c(rep(1,16),rep(2,16)),mtcars)

gears <- unique(df$gear)

for(g in gears)
{
  cat("## gear", g, "\n")
  
  print(
  df %>% filter(gear==g & m==i) %>%
    gt()
  )
}

The way out

but your i Gero report from the R script the tables are not printed

library(tidyverse)
library(gt)

df <- cbind(m=c(rep(1,16),rep(2,16)),mtcars)

for (i in 1:2) 
{

  rmarkdown::render(
    'report_template_2.Rmd', output_file = paste0("report", 
                                                    "_",i, 
                                                  '.html'), encoding="UTF-8")
}

In time, other printouts of tables using the GT package to the script logo are printed normally.

Any idea what might be going on?

Answer 1

Rscript does not locate Pandoc, you need to set in the execution file. Check the pandoc directory with the function Sys.getenv("RSTUDIO_PANDOC")

I made some simplifications in the example.

Rscript cron.R

cron.R

Sys.setenv(RSTUDIO_PANDOC='/usr/lib/rstudio/bin/pandoc')
for (i in 1:2){
  rmarkdown::render('report.Rmd', 
  output_file = paste0("report","_", i, '.html'), encoding="UTF-8")
}

report.Rmd

---
title: "Report"
author: "Me"
date: "`r format(Sys.time(), '%d de %B de %Y')`"
output:
  html_document
---

# First Section    

```{r , results='asis', echo=FALSE, message=FALSE}
library(tidyverse)
library(gt)

df <- cbind(m=c(rep(1,16),rep(2,16)),mtcars)

gears <- unique(df$gear)

for(g in gears){
  cat("<h2><b>gear", g, "</b></h2>")
  df %>% filter(gear==g) %>% gt() %>% print
}
```

Answer 2

The answer you solved came from a collaboration in the English version of the question (https://stackoverflow.com/questions/66812874/printing-gt-table-inside-a-loop-with-rmarkdownrender-not-working) and that is to use

print(htmltools::tagList(df %>% gt()))