Невозможно изменить шрифт заголовка PPT с офицером

Question

Шрифт заголовка не изменяется в Powerpoints, созданных с офицером.

Я попытался добавить fp_text в ph_with, и пока он ничего не запускает, он его генерирует.

library(officer)
library(magrittr)

title.font <- fp_text(font.size = 28)    

example_pp <- read_pptx() %>% 
  # LMS slide ----  
  add_slide(layout = "Title and Content", master = "Office Theme") %>% 
  ph_with(paste("Title font test"),
          location = ph_location_type(type = "title"), 
          fp_text(font.size = 28))

Answer 1

Нет аргумента для fp_text в ph_with.

library(officer)
library(magrittr)

example_pp <- read_pptx() %>% 
  # LMS slide ----  
add_slide(layout = "Title and Content", master = "Office Theme") %>% 
  ph_with(block_list(fpar(ftext("Title font test", prop = fp_text(font.size = 28, color = "red")))),
          location = ph_location_type(type = "title") )

См. ?block_list