空行格式化官包R答案

【问题标题】：Blank lines formatting officer package R空行格式化官包R
【发布时间】：2021-07-08 15:27:26
【问题描述】：

我目前正在使用officer 包来生成一个Word 文档。我一直在使用body_add_par 在整个文档中添加多个空白行，但是这种方法已经变得乏味了。

有没有办法创建一个函数，或者以某种方式能够编写一行代码来指定我要插入多少个空白行？

Practice_R.docx = read_docx() %>%
  body_add_par("") %>%
  body_add_par("") %>%
  body_add_par("") %>% 
  body_add_par(paste("test")) %>% 
  body_add_par("") %>%
  body_add_par("") %>%
  body_add_par("") %>%
  body_add_par("") %>%
  body_add_par("") %>%
  body_add_par("") %>%
  body_add_par(paste("test2"))%>%
  body_add_break( pos = "after")

【问题讨论】：

标签： r officer

【解决方案1】：

试试：

# repeat the addition of an empty paragraph n-times

body_add_par_n <- function(doc, n) {
    i <- 1 # initialize counter
    while (i<=n) { # control if the counter is less then desired n
        
        doc <- body_add_par(doc, "") # add paragraph to the object
        i <- i+1 # increment the counter
    }
    
    doc # return the object
}

Practice_R.docx = read_docx() %>%
  body_add_par_n(3) %>% 
  body_add_par(paste("test")) %>% 
  body_add_par_n(6) %>% 
  body_add_par(paste("test2"))%>%
  body_add_break( pos = "after")

【讨论】：

效果很好，感谢您的帮助！
很高兴我能帮上忙。