Как я могу изменить в R семейство шрифтов заголовка с офицером?

Question

Как я могу изменить семейство шрифтов заголовка в R с офицером?Я пытаюсь сделать это с помощью функции fp_text(font.family = "Arial"), но проблема в том, что заголовок, который я определяю с помощью fp_text, не попадает в оглавление.

Answer 1

Это немного болезненно, но я так и делаю:

1. Добавьте пустой заполнитель в слот для заголовка с помощью ph_empty()
2. Добавьте форматированный текст с помощью ph_add_fpar(), используя fpar(), ftext() и fp_text() для создания отформатированного текстового объекта.

Вот пример того, как изменить заголовок на слайде с заголовком и на заголовке иСодержимое слайда, предполагая, что вы хотите использовать шрифты "Rage Italic" и "Goudy Stout":

library(officer)
library(magrittr)

# the formatting you want to use goes here -- check your fonts()
format_main_title <- fp_text(font.family='Rage Italic', font.size=72)
format_page_title <- fp_text(font.family='Goudy Stout', font.size=24)

read_pptx() %>% 
  add_slide(layout = 'Title Slide', master='Office Theme') %>%
  ph_empty(type='ctrTitle') %>%
  ph_add_fpar(fpar(ftext('Fancy Main Title', prop=format_main_title)), 
                      type = 'ctrTitle') %>%
  add_slide(layout = 'Title and Content', master='Office Theme') %>%
  ph_empty(type='title') %>%
  ph_add_fpar(fpar(ftext('Fancy Page Title', prop=format_page_title)), 
                                     type = 'title')  %>%
  ph_with_text(type = 'body', str = 'Boring stuff goes here') %>%
  print('test.pptx')

производит:

Вы можете увидеть эти заголовки в оглавлении:

Сказав это, - если вы обнаружите, что постоянно меняете шрифты заголовков наПри таком же новом форматировании вам, вероятно, лучше создать колоду шаблонов с вашим собственным Slide Master (в отличие от стандартной темы Office), в которой используется нужный шрифт, и начать цепочку с этого (т. е. read_pptx('your_template.pptx') %>% etc.)