使用officer包的body_add_table()函数报错，如何解决？

报错原因 #

你指定的表格样式table_template不存在于read_docx()创建的空白文档中——空白文档仅包含Word内置的默认表格样式，没有自定义的table_template，导致赋值时出现行数不匹配的错误。

解决方法 #

方法1：使用内置默认表格样式 #

如果不需要自定义样式，可直接省略style参数，或者使用Word内置的表格样式名称（比如"Table Grid"）：

library(officer)
doc <- read_docx()
# 不指定样式，使用默认格式
doc <- body_add_table(doc, iris)
# 或者使用内置样式
# doc <- body_add_table(doc, iris, style = "Table Grid")
print(doc, target = "output.docx")

方法2：基于含自定义样式的模板文档操作 #

1. 打开Word创建空白文档，设置好名为table_template的自定义表格样式，保存为模板文件（比如template.docx）。
2. 读取该模板后再添加表格：

library(officer)
# 读取包含自定义样式的模板文件
doc <- read_docx(path = "template.docx")
doc <- body_add_table(doc, iris, style = "table_template")
print(doc, target = "output_with_style.docx")

方法3：代码内动态创建表格样式 #

使用officer的table_style()函数自定义样式并添加到文档：

library(officer)
doc <- read_docx()
# 定义自定义表格样式
my_table_style <- table_style(
  table_name = "table_template",
  header = fp_border(color = "black"),
  body = fp_border(color = "gray")
)
# 将样式添加到文档
doc <- doc$body$styles$add(my_table_style)
# 添加表格并应用自定义样式
doc <- body_add_table(doc, iris, style = "table_template")
print(doc, target = "output_custom_style.docx")

内容的提问来源于stack exchange，提问作者Mike Zhang