Вторая строка текста в субтитрах pptx

Question

Я добавил титульный слайд в объект pptx и хочу добавить вторую строку в расположении субтитров.

Я попытался использовать функцию ph_add_fpar, но безуспешно. Я все еще новичок с пакетом, поэтому, вероятно, не использую правильные функции!

    mypowerpoint <- read_pptx() %>%
      add_slide("Title Slide","Office Theme") %>%
    ph_with("Flashy Title",ph_location_type("ctrTitle",position_right = TRUE)) %>%
    ph_with("Catchy Subtitle 1",ph_location_type("subTitle")) %>%
    ph_with("Catchy Subtitle 2",ph_location_type("subTitle")) 

Запуск вышеупомянутого дает мне два субтитра, накладываемых друг на друга, а не второй текст субтитра в качестве новой строки вте же объекты, что и первый. Может кто-нибудь сказать мне, что мне не хватает, или лучше использовать функцию для этого?

Answer 1

ph_with опорный вектор длиной> 1

library(magrittr)
library(officer)
mypowerpoint <- read_pptx() %>%
  add_slide("Title Slide","Office Theme") %>%
  ph_with("Flashy Title",ph_location_type("ctrTitle",position_right = TRUE)) %>%
  ph_with(c("Catchy Subtitle 1", "Catchy Subtitle 2"),ph_location_type("subTitle"))