Выравнивание текста в Power Point с R / сотрудник
Я экспериментирую с автоматизацией некоторых отчетов и хотел бы придерживаться корпоративного стиля Power Point (по крайней мере, насколько это возможно). Использование непосредственно доступного шаблона с
ppt <- read_pptx("myTemplate.pptx")
это довольно сложно, по крайней мере, для меня.
Поэтому я пытаюсь работать со стандартной "Офисной темой" и стараюсь, чтобы она выглядела как шаблон компании. Я хотел бы иметь возможность выравнивания по левому краю ctrTitle, subTitle и типы заголовков.
Если я запускаю приведенный ниже пример, то заголовок центрируется. Кто-нибудь знает, как его выровнять по левому краю? Я не смог найти в документации.
Заранее спасибо.
require(officer)
require(magrittr)
ppt = read_pptx()
ppt = ppt %>% add_slide(layout = "Title Slide", master = "Office Theme")
ppt = ppt %>% ph_with_text(str = "Title String", type = "ctrTitle")
print(ppt, target = "first_example.pptx") %>% invisible()