r - 官员 - 格式化文本

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() 需要一个样式名称(取自原始文档中的样式名称)。

如果你想添加一段由格式化的文本 block 组成的段落，你将需要使用 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")