Prezados(as)

Criei um objeto tipo "table" usando xtabs e estou tentando exportá-lo no mesmo formato para Word usando officer.

> tp
       filiais
q01       f1   f2   f3   f4   f5   f6   f7   f8 Total
  Sim    19.2  21.8  11.8  11.3  20.6  25.0  30.0  16.3     19.1
  Não    80.8  78.2  88.2  88.7  79.4  75.0  70.0  83.7     80.9
  Total 100.0 100.0 100.0 100.0 100.0 100.0 100.0 100.0    100.0

Estou usando os seguintes comandos
doc <- doc %>%
  body_add_par("Você exerce função de chefia?", style = "heading 1") %>%
  body_add_table(as.data.frame(tp), style = "Table Professional", header = FALSE)

print(doc, target = "teste.docx")

O "officer" me obriga a transformar o objeto tp em dataframe e como resultado a tabela fica desconfigurada. Desejo manter o mesmo formato do objeto tp no relatório exportado.

Alguém já passou por isso ou sabe como resolver o problema?
Agradeço qualquer orientação que puderem me oferecer.
At.
Jobenil Júnior