如何在RMarkdown代码块中为flextable生成的表格添加换行？

问题根源 #

直接用cat("\n\n")或knitr::asis_output插入换行符，要么在Word中不生效（Word依赖段落分隔而非纯换行符），要么会打乱bookdown对表格标题的解析逻辑，导致第二个表格标题格式异常。

可靠解决方案 #

利用officer包操作Word文档对象，插入空白段落实现换行，既不干扰表格标题生成，又能在Word中呈现明显的间距。

完整代码示例 #

---
title: "测试表格换行"
output:
  bookdown::word_document2:
    toc: false
---

```{r echo=FALSE, message=FALSE}
library(flextable)
library(officer)

# 生成第一个带标题的表格
tbl1 <- flextable(head(mtcars, 3)) %>%
  set_caption("表格1：mtcars前3行数据")
tbl1

# 插入空白段落实现换行（关键代码）
current_doc <- docx_current()
body_add_par(current_doc, value = "", style = "Normal")

# 生成第二个带标题的表格
tbl2 <- flextable(head(iris, 3)) %>%
  set_caption("表格2：iris前3行数据")
tbl2

### 代码说明
- `docx_current()`：获取当前正在生成的Word文档对象，是`officer`为bookdown/knitr量身定制的函数。
- `body_add_par(current_doc, "", style = "Normal")`：插入一个空的普通段落，Word会将其解析为段落分隔，实现两个表格间的换行。如果需要调整间距大小，可以添加段落属性设置：
  ```r
  body_add_par(current_doc, "", style = "Normal") %>%
    body_set_paragraph_properties(space_after = 12) # 设置12磅的段后间距

为什么这个方法有效 #

bookdown生成Word文档时底层依赖officer，直接操作文档对象插入空白段落，完全不会干扰bookdown对表格标题的标记逻辑，因此两个表格的标题格式都能保持正常，同时实现了预期的换行效果。

内容的提问来源于stack exchange，提问作者Matt Aruta