在主管中添加不带列标题的表格

尝试使用管理员在.docx文档的数据框中添加表格，但不包括列标题的行。我已经尝试从数据框中删除列名称，然后将其添加到文档中，但这并没有奏效，导致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")

来源

2017-09-05 Jason Clark

我已经加入说法头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")

来源

2017-09-05 16:42:29

谢谢你的解决方案，而该包的发展。我想到的另一个解决方案是使用flextable，加载数据框减去第一行，并使用set_header_labels函数将数据的第一行的标题设置为可伸缩。 –

我将添加一个选项，以便稍后从可伸缩项中删除标题。 –

在主管中添加不带列标题的表格

回答

相关问题