我在R中用officer package创建了几个rdocx数据对象。我想将这些rdocx对象仅合并到一个rdocx对象中。
考虑以下示例:
library("officer")
# Create two rdocx data objects
doc1 <- read_docx()
doc1 <- doc1 %>%
body_add_par("doc1_aaa", style = "Normal") %>%
body_add_par("doc1_bbb", style = "Normal") %>%
body_add_par("doc1_ccc", style = "Normal")
doc2 <- read_docx()
doc2 <- doc2 %>%
body_add_par("doc2_aaa", style = "Normal") %>%
body_add_par("doc2_bbb", style = "Normal") %>%
body_add_par("doc2_ccc", style = "Normal")
如何合并这两个rdocx对象,以使Word中的最终输出如下所示?
# Expected output
doc3 <- # combine doc1 and doc2
print(doc3, target = "Final-Output.docx")
# doc1_aaa
# doc1_bbb
# doc1_ccc
# doc2_aaa
# doc2_bbb
# doc2_ccc
答案 0 :(得分:2)
您将需要函数body_add_docx
:
library(officer)
library(magrittr)
doc2 <- read_docx()
doc2 <- doc2 %>%
body_add_par("doc2_aaa", style = "Normal") %>%
body_add_par("doc2_bbb", style = "Normal") %>%
body_add_par("doc2_ccc", style = "Normal") %>% print(target = "doc2.docx")
doc1 <- read_docx()
doc1 <- doc1 %>%
body_add_par("doc1_aaa", style = "Normal") %>%
body_add_par("doc1_bbb", style = "Normal") %>%
body_add_par("doc1_ccc", style = "Normal") %>%
body_add_docx(src = "doc2.docx") %>%
print(target = "Final-Output.docx")