使用R中的ReporteRs更改docx中的行距

Question

我正在使用R中的ReporteRs包创建一个word文档，并且我希望将段落的间距从单间距更改为1.5间距。

我想我可以将每一行作为一个新的段落输入，并在每个“段落”的开头放置一个缓冲区，但我正在寻找一种更简洁的方式。

如果可以的话，我愿意使用另一个包。

Answer 1

您可以在空Word文档中定义行距为1.5 (名称为myparag)的段落，并将其重新用作模板(文件名：template.docx)。

doc <- docx() 
styles( doc ) # check value `myparag` is in the available paragraph styles
doc <- addParagraph(doc, "Blah blah blah", stylename = "myparag")

Answer 2

## docx example 
doc = docx( )

# Footnote definition
par1 = pot("About this reference", textItalic(font.size = 8) )
par2 = pot("Omni ab coalitos pro malivolus obsecrans graviter 
           cum perquisitor perquisitor pericula saepeque inmunibus coalitos ut.", 
           textItalic(font.size = 8) )

Footnote = Footnote( )
Footnote = addParagraph( Footnote, set_of_paragraphs( par1, par2 ), 
  parProperties(padding.top = 15))

# add text in the doc with previously defined footnote
my_pot = pot("Blah blah blah." ) + 
  pot(" Here is a note.", footnote = Footnote)
doc = addParagraph(doc, my_pot )

writeDoc( doc, file = "footnote.docx" )