如何添加换行符？

Question

我正在尝试使用body_replace_all_text或body_add_par添加换行符，但没有任何乐趣。 使用\r\n在 OSX TextEdit 中正确显示，但在 Word 中不正确。

一个例子：

library(officer)
library(tidyverse)

read_docx() %>% 
  body_add_par("Oneline\r\n\r\nAnother line") %>% 
  print(target = "example.docx")

有正确的方法吗？

Answer 1

每次要添加段落（文本段落以换行结尾）时，您都必须调用body_add_par ：

library(officer)
library(tidyverse)

read_docx() %>% 
  body_add_par("Oneline") %>% 
  body_add_par("Another line") %>% 
  print(target = "example.docx")

Answer 2

我发现的另一种方法是在Word中进行修改。

library(officer)
library(tidyverse)

read_docx() %>% 
  body_add_par("Oneline(LineBreak)Another line") %>% 
  print(target = "example.docx")

然后在Word中，按Ctrl + H并将所有“（LineBreak）”更改为“ ^ p”。

这不是一个好主意，但它对我来说是创可贴的解决方案。

Answer 3

这是一个简单的解决方法，将字符串拆分为向量并分别写入每一行。 不幸的是，它非常慢。

library(officer)
library(tidyverse)

doc <- read_docx()
text <- "Oneline\r\n\r\nAnother line" %>% strsplit('\r\n') %>% unlist()
for (t in text){
  body_add_par(doc, t)
}
print(doc, target = "example.docx")