缩进使用R-ReporteRs制作的Flextable

Question

我想缩进一个用ReporterRs包创建的(Flex)表。下面是一个例子：

library(ReporteRs)

df <- data.frame(Column1 = 1:5, Column2 = c("a","b","c","d","e"))
Mydoc = docx(title="A testdoc for testing tables")
options('ReporteRs-fontsize'=10, 'ReporteRs-default-font'='Arial')
FTab = FlexTable( data = df, add.rownames = FALSE, header.columns = TRUE,  
                  body.text.props = textProperties( font.size = 10,font.family = "Arial" ),
                  header.text.props = textProperties( font.size = 10,font.family = "Arial", font.weight = "bold"))
FTab = setFlexTableBorders(FTab,inner.vertical = borderNone(),inner.horizontal = borderNone(),
                           outer.vertical = borderNone(), 
                           outer.horizontal = borderProperties(color = "black", style = "solid", width = 1))
Mydoc = addFlexTable(Mydoc, FTab)

nu <- format(Sys.time(), "%Y%m%d%H%M")
writeDoc(Mydoc, paste0("testreport_",nu,".docx"))

这将创建一个具有左对齐表格的docx。我要把桌子向右移动1.5厘米。所以没有中心或右对齐，而是1.5厘米的缩进。这个是可能的吗？对于文本，我可以使用预定义的缩进1.5厘米的样式，但对于表格似乎不可能。还是真的是这样？

作为一种变通办法，我可以在左边添加一个额外的栏，没有任何边框或文本。但我更喜欢整洁的解决方案。

Answer 1

从软件包文档来看，除非你想写一个补丁，否则你最好使用不可见列：

函数addFlexTable

将FlexTable添加到文档对象。

Word和html文档

使用addFlexTable函数在document对象中添加FlexTable对象。

预期的参数为：

定义要定义对齐的文档对象和定义对齐的object

• eventually
• FlexTable parProperties object。请注意，对于docx对象，将只使用对齐方式，如果要在表格周围添加空格，请在前面和/或后面的段落中指定padding。