使用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厘米，但对于表格似乎不可能。还是可以吗？

作为解决方法，我可以在左侧添加一个额外的列，没有边框或文本。但我更喜欢一个简洁的解决方案。

- RHA

Answer 1

根据软件包文档，除非您想编写补丁，否则最好使用不可见列：

函数addFlexTable

将FlexTable添加到文档对象中。

Word和HTML文档

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

预期的参数包括：

• 文档对象
• FlexTable对象
• 可能是parProperties对象，用于定义对齐方式。 请注意，在docx对象中，仅使用对齐方式，如果您想在表格周围添加空间，请在前面和/或后面的段落上指定填充。

- HubertL

---

是的，我看到了那个。但我希望能够通过指定填充或一些智能调整的方式来解决。我很想写一个补丁，但担心我的编程技能不够好。 - RHA