在主管中添加不帶列標題的表格

嘗試使用管理員在.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函數將數據的第一行的標題設置爲可伸縮。 –

我將添加一個選項，以便稍後從可伸縮項中刪除標題。 –

在主管中添加不帶列標題的表格

回答

相關問題