Ms word Rmd表格标题在编织到word文档时弄乱了

我试图用Rmd制作表格，带有不同的标题或标题。flextable的软件包

flextable

有很多可输出到word文档的选项。它的函数

add_header_lines（）

允许您在每个表的顶部添加标题标题。当Rmd输出换行到新页面时，

add_header_lines（）

将另一个标题添加到下一页的连续表格顶部。但是，它会获取传递给您首先创建的任何表的参数。然后，下一个表格继续正确，直到到达下一页，再次返回到第一页（见图）

这是一个可复制的示例，其中表格中的所有值应与表格编号相同

有没有办法解决这个问题？我希望它有正确的标题，但会满足于在分页符后简单地去掉第二个标题

    ---
title: "Untitled"
author: "Anyone"
date: "2/29/2020"
output:
  word_document: default
  html_document:
    df_print: paged
  pdf_document: default
---

```{r setup, include=FALSE}
library(dplyr)
library(flextable)

knitr::opts_chunk$set(echo = FALSE,message=FALSE)

```


```{r Table1}
cars1<-cars*0+1
theme_zebra(regulartable(cars1))%>% 
  align(align="center",part="all") %>% 
  autofit%>% 
  add_header_lines(paste("Table 1: Model output for thing 1"))

```

```{r Table2}
cars2<-cars*0+2
theme_zebra(regulartable(cars2))%>% 
  align(align="center",part="all") %>% 
  autofit%>% 
  add_header_lines(paste("Table 2: Model output for thing 2"))

```

```{r Table3}
cars3<-cars*0+3
theme_zebra(regulartable(cars3))%>% 
  align(align="center",part="all") %>% 
  autofit%>% 
  add_header_lines(paste("Table 3: Model output for thing 3"))

```

```{r Table4}
cars4<-cars*0+4
theme_zebra(regulartable(cars4))%>% 
  align(align="center",part="all") %>% 
  autofit%>% 
  add_header_lines(paste("Table 4: Model output for thing 4"))

```

---
标题：“无标题”
作者：“任何人”
日期：“2020年2月29日”
输出：
word\u文档：默认值
html_文件：
df_打印：第页
pdf_文档：默认值
---
```{r设置，include=FALSE}
图书馆（dplyr）
图书馆（flextable）
knitr:：opts_chunk$set（echo=FALSE，message=FALSE）
```
```{r表1}
cars1%
对齐（align=“center”，part=“all”）%%>%
自动拟合%>%
添加标题行（粘贴（“表1:Thing1的模型输出”））
```
```{r表2}
cars2%
对齐（align=“center”，part=“all”）%%>%
自动拟合%>%
添加标题行（粘贴（“表2:Thing2的模型输出”））
```
```{r表3}
cars3%
对齐（align=“center”，part=“all”）%%>%
自动拟合%>%
添加标题行（粘贴（“表3:Thing3的模型输出”））
```
```{r表4}
汽车4%
对齐（align=“center”，part=“all”）%%>%
自动拟合%>%
添加标题行（粘贴（“表4:Thing4的模型输出”））
```

请注意，这就是分页符所在的位置。这里标记为“1”的表实际上应该是“2”。它将继续对每个页面执行此操作，其中表的其余部分标记为“1”（尝试Rmd代码）

这是单词fault:）它决定两个表之间没有中断是同一个表

---
title: "Untitled"
author: "Anyone"
date: "2/29/2020"
output:
  word_document: default
---

```{r setup, include=FALSE}
library(dplyr)
library(flextable)

knitr::opts_chunk$set(echo = FALSE,message=FALSE)

```


```{r Table1}
cars1<-cars*0+1
theme_zebra(flextable(cars1))%>% 
  align(align="center",part="all") %>% 
  autofit%>% 
  add_header_lines(paste("Table 1: Model output for thing 1"))

```

blah

```{r Table2}
cars2<-cars*0+2
theme_zebra(flextable(cars2))%>% 
  align(align="center",part="all") %>% 
  autofit%>% 
  add_header_lines(paste("Table 2: Model output for thing 2"))

```

blah

```{r Table3}
cars3<-cars*0+3
theme_zebra(flextable(cars3))%>% 
  align(align="center",part="all") %>% 
  autofit%>% 
  add_header_lines(paste("Table 3: Model output for thing 3"))

```

blah

```{r Table4}
cars4<-cars*0+4
theme_zebra(flextable(cars4))%>% 
  align(align="center",part="all") %>% 
  autofit%>% 
  add_header_lines(paste("Table 4: Model output for thing 4"))

```

---
标题：“无标题”
作者：“任何人”
日期：“2020年2月29日”
输出：
word\u文档：默认值
---
```{r设置，include=FALSE}
图书馆（dplyr）
图书馆（flextable）
knitr:：opts_chunk$set（echo=FALSE，message=FALSE）
```
```{r表1}
cars1%
对齐（align=“center”，part=“all”）%%>%
自动拟合%>%
添加标题行（粘贴（“表1:Thing1的模型输出”））
```
废话
```{r表2}
cars2%
对齐（align=“center”，part=“all”）%%>%
自动拟合%>%
添加标题行（粘贴（“表2:Thing2的模型输出”））
```
废话
```{r表3}
cars3%
对齐（align=“center”，part=“all”）%%>%
自动拟合%>%
添加标题行（粘贴（“表3:Thing3的模型输出”））
```
废话
```{r表4}
汽车4%
对齐（align=“center”，part=“all”）%%>%
自动拟合%>%
添加标题行（粘贴（“表4:Thing4的模型输出”））
```

---

据我所知，这不是flextable可以解决的问题，但如果有一个选项我不知道，我很乐意将其集成。

我一个接一个地更改了regulartable（regulartable是为了与用户编写的旧代码兼容而维护的，但请注意它产生的对象与flextable完全相同。）谢谢David！为了完整性，Rmd不会将空格或换行符识别为需要进入单词doc的内容。但是，如果您使用

而不是

blah

，则表之间可以有空格（换行符），这也将解决问题！