Combining powerpoint officer objects

Question

Using the code below, is there an easy way to combine presentations p1 and p2 together?

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")