r - 在 RMarkdown 如何在循环中插入换行符以打印 gt 表

Question

我正在尝试在包含 H2 标头和由 gt 包创建的表的循环中生成空行。

在循环外的第一个示例中，我们可以看到“”，后跟两个空格的条产生了所需的效果，但是如何在循环中实现相同的效果呢？

---
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)
```

## Header 1
\  
\  
\
\
4 lines breaks above
\  
\  
```{r gt1, echo=FALSE}

   head(mtcars) %>% gt()
```
\  
\  
```{r gtfor, echo = FALSE, warning=FALSE, message= FALSE, results='asis'}
for( i in 1:3)
{
  cat("\n\n## some Header ##\n")
  
  print("\n\n")
  
  print("\  ")
  
  print(
      head(mtcars) %>% gt()
  )
}
   

Answer 1

我放弃了寻找创建新行的特殊命令，并决定通过编辑 CSS 样式来寻找解决方案。

通过使用来自这篇文章“ CSS Baseline: The Good, The Bad And The Ugly ”的样式推荐，我得到了我期望的视觉结果，方法如下

---
title: "Report"

output:
  html_document: default

---
<style type="text/css">
h1 {
   font-size: 2.5em; 
   line-height: 1.0em; 
   margin-bottom: 8px;
}

h2 {
   font-size: 2.0em; 
   line-height: 1.0em; 
   margin-bottom: 8px;
}

h3 {
   font-size: 1.5em; 
   line-height: 1.0em; 
   margin-bottom: 8px;
}

p {
   font-size: 1.1em; /* 16px is the default em size */
   line-height: 1.45em; /* = 22px/14px */
   margin-bottom: 8px;
}

</style>



```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
```

```{r, include=FALSE}
#bibliotecas usadas
library(tidyverse)
library(gt)
```

# Header 1
blah blah blah blah blah blahblah blah blah blah blah blah blah blah blahblah blah blahblah blah blahblah blah blahblah blah blahblah blah blah.

## Header 2
blah blah blah blah blah blahblah blah blah blah blah blah blah blah blahblah blah blahblah blah blahblah blah blahblah blah blahblah blah blah.

### Header 3
blah blah blah blah blah blahblah blah blah blah blah blah blah blah blahblah blah blahblah blah blahblah blah blahblah blah blahblah blah blah.

 
```{r gt1, echo=FALSE}

   head(mtcars) %>% gt()
```
\  
\  
```{r gtfor, echo = FALSE, warning=FALSE, message= FALSE, results='asis'}
for( i in 1:3)
{
  cat("### 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()
  )
}
   
```