如何从官员删除docx开头的空白行

Question

我正在使用officer R来创建Word（docx）文档。这是代码：

library(officer)
library(magrittr)

my_docx = read_docx() %>% 
  # cursor_begin() %<>% 
  body_add_par("Hello here is a test sentence to see if there is a blank line above it.", style = "Normal") %>% 
  print(target = "test.docx")

它创建一个docx文档，在句子顶部有一个空行。它不是在字体样式中设置的字体样式之前的间距。我已取消注释cursor_begin()但空白行仍然存在。我怎么能摆脱这个？

感谢任何帮助！

Answer 1

要删除段落，您需要使用函数body_remove()。请参阅此处的文档：https://davidgohel.github.io/officer/articles/word.html#remove-content

library(officer)
library(magrittr)

my_docx <- read_docx() %>% 
  cursor_begin() %>% body_remove() %>% 
  body_add_par("Hello here is a test sentence to see if there is a blank line above it.", 
               style = "Normal") %>% 
  print(target = "test.docx")