r - 使用r包 'flextable'将多个表格导出到word文档

Question

我正在尝试导出两个(弹性)表
同一个word文档。这是我所拥有的:

df1 <- data.frame(a = 1:3, b = 1:3)
df2 <- data.frame(c = 11:13, d = 11:13)

library(flextable)
df1_ft <- regulartable(df1)
df2_ft <- regulartable(df2)

library(officer)
word_export <- read_docx()
word_export <- body_add_flextable(word_export, df1_ft)
word_export <- body_add_flextable(word_export, df2_ft)
print(word_export, 'try.docx')

然而，结果是包含两个表的单个表。
知道如何一个接一个地添加到两个表中吗？

Answer 1

这两个表一个接一个地输出到 Word，由于它们之间没有换行符，它们显示为一个。最简单的解决方案是在它们之间放置一个带有空文本的段落:

word_export <- read_docx()
body_add_flextable(word_export, df1_ft)
body_add_par(word_export, value = "")
body_add_flextable(word_export, df2_ft)
print(word_export, 'try.docx')

也可以看到不需要重复分配每个 body_add_*的输出行回到您的 word_export 文件 - 每次调用都会直接更新 Word 文件。