在 Officer 中添加表 w/o 列 Headers

Question

尝试使用 officer 从 .docx 文档中的数据框中添加 table，但不包含列 header 的行。我试过在将列名添加到文档之前从数据框中删除列名，但这没有用，并导致 gobbly-gook 被添加到顶行而不是顶行不存在。关于如何实现这一点有什么想法吗？

NarrativeDoc <- read_docx()
tmp = data.frame(RowHead1=c('Fact 1','Fact 2'),
                 RowHead2=c("I like chicken","I am not a chicken"),
                 stringsAsFactors =FALSE)
names(tmp)=NULL
NarrativeDoc <- body_add_table(NarrativeDoc,tmp)
print(NarrativeDoc,
      target="C:\Users\jclark_v\Documents\R\TestNoHeader.docx")

Answer 1

我已将参数 header 添加到 body_add_table（您需要从 github 更新）

NarrativeDoc <- read_docx()
tmp = data.frame(RowHead1=c('Fact 1','Fact 2'),
                 RowHead2=c("I like chicken","I am not a chicken"),
                 stringsAsFactors =FALSE)
NarrativeDoc <- body_add_table(NarrativeDoc,tmp, header = FALSE)
NarrativeDoc <- body_add_par(NarrativeDoc, "")
NarrativeDoc <- body_add_table(NarrativeDoc,tmp, header = TRUE)
print(NarrativeDoc,
      target="TestNoHeader.docx")

在 Officer 中添加表 w/o 列 Headers

Adding Tables w/o Column Headers in Officer

r

officer