library(officer)
library(flextable)
myft <- regulartable(dataset, col_keys = names(dataset))
my_doc <- body_add_par(my_doc, "", style = "Normal")
my_doc <- body_add_flextable(my_doc, value = myft)
print(my_doc, target = "path/ABC.docx")