缩进用r语言 - reporter制成的弹性表

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 h1> 加FlexTable到文档对象

Word和html文档

使用addFlexTable函数在文档对象中添加一个FlexTable对象。

期望参数为:

• 文件对象
• FlexTable对象
• 最终是一个parProperties对象来定义对齐。注意，对于docx对象，只会使用对齐，如果您想在表周围添加空间，请在前面和后面指定填充。