Странное поведение нижнего колонтитула в таблицах GT в циклах с RMarkdown
В приведенном ниже примере в той же таблице GT сноска отображается по-разному, когда она находится внутри.
https://s tackru.com/images/698be74761f25ad564df98ceb12f6e97104db976.png
и вне цикла,
https://s tackru.com/images/4a716ad951e7d4750328b3ff0443f744fd8975ad.png
появляется для вставки строки и изменения размера шрифта.
---
title: "Report"
output:
html_document: default
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```
```{r, include=FALSE}
#bibliotecas usadas
library(tidyverse)
library(gt)
```
```{r gt1, echo=FALSE}
head(mtcars) %>% gt() %>% tab_footnote("footnote blah blah", locations=cells_title())
```
\
\
```{r gtfor, echo = FALSE, warning=FALSE, message= FALSE, results='asis'}
for( i in 1:3)
{
cat("\n### Some Header H3\n")
cat("blah blah blah blah blah blahblah blah blah blah blah blah blah blah blahblah blah blahblah blah blahblah blah blahblah blah blahblah blah blah.\n\n")
print(
head(mtcars) %>% gt() %>% tab_footnote("footnote blah blah", locations=cells_title())
)
}
```