Написание текстовых документов с пакетом офицера: Как объединить несколько объектов rdocx? - PullRequest
Новая
       7

Написание текстовых документов с пакетом офицера: Как объединить несколько объектов rdocx?

0 голосов
/ 15 февраля 2019

У меня есть несколько объектов данных rdocx, созданных с помощью офицерского пакета в R. Я хочу объединить эти объекты 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

1 Ответ

0 голосов
/ 15 февраля 2019

Вам понадобится функция 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")
...