officer - 结合 powerpoint 官员对象

Question

使用下面的代码，是否有一种简单的方法可以将演示文稿 p1 和 p2 组合在一起？

library(officer)
  library(magrittr)
  p1  = read_pptx() %>% add_slide(layout = "Two Content", master = "Office Theme") %>% ph_with_text(type = "body", str = "First Slide")

  p2  = read_pptx() %>% add_slide(layout = "Two Content", master = "Office Theme") %>% ph_with_text(type = "body", str = "Second Slide")