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("nn## some Header ##n")

print("nn")

print("  ")

print(
head(mtcars) %>% gt()
)
}

Answer 1

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

我得到了我期望的视觉结果，使用了来自这篇文章"CSS 基线：好，坏和丑陋"的样式建议

，如下所示

---
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 H3n")
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.nn")

print(
head(mtcars) %>% gt()
)
}

```