Офицер - Формат текста

Question

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

library(officer)
text_style <- fp_text(font.size = 12)

my_doc <- read_docx()
body_add_par(my_doc,"This is a test", style = text_style)
print(my_doc, target = "dummy.docx")

Answer 1

Функция body_add_par() ожидает имя стиля (взято из существующих в исходном документе).

Если вы хотите добавить абзац из отформатированного фрагмента текста, вам нужно будет использовать body_add_fpar(), как показано ниже.

library(officer)
text_style <- fp_text(font.size = 12)
par_style <- fp_par(text.align = "justify")
my_doc <- read_docx()
my_doc <- body_add_fpar(my_doc, fpar( ftext("This is a test", prop = text_style), fp_p = par_style ) )
print(my_doc, target = "dummy.docx")