用R语言拼合多个TXT文件成一个docx文件

我们有时候会遇到多个txt文件，为了方便统一编辑需要将这些txt文件整合到一个文件当中，。如果文件少还好办些，粘粘贴贴就完事；如果有几百个上千个，这么干就崩溃掉了。如果用下面的方法就可以拼合多个txt文件成一个docx文件，这就方便多了。

rm(list = ls())

setwd("./文档/散装txt文件")

library(tidyverse)

library(readtext)

library(officer)

#列出该目录下所有文件

dir = list.files()

#读取dir长度，也就是文件夹下的文件个数

n = length(dir)                                     

#读入第一个文件内容

merge.data = readtext(file = dir[1]) 

#循环从第二个文件开始读入所有文件，并组合到merge.data变量中

for (i in 2:n){

  new.data = readtext(file = dir[i])

  merge.data = paste0(merge.data,"\r\n",new.data)

}

#输出成docx文件

doc_1 <- read_docx()

doc_1 <- body_add_par(doc_1,merge.data)

print(doc_1, target ="目标文档.docx")