无法使用officer更改PPT标题字体

Question

在使用officer创建的Powerpoint中，标题字体不会更改。

我曾尝试将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

在ph_with中没有fp_text的参数。

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