# NOT RUN {
library(officer)
stylenames <- c(
vs = "centered", am = "centered",
gear = "centered", carb = "centered"
)
doc_1 <- read_docx()
doc_1 <- body_add_table(doc_1,
value = mtcars, style = "table_template",
stylenames = table_stylenames(stylenames = stylenames)
)
print(doc_1, target = tempfile(fileext = ".docx"))
stylenames <- list(
"centered" = c("vs", "am", "gear", "carb")
)
doc_2 <- read_docx()
doc_2 <- body_add_table(doc_2,
value = mtcars, style = "table_template",
stylenames = table_stylenames(stylenames = stylenames)
)
print(doc_2, target = tempfile(fileext = ".docx"))
# }
Run the code above in your browser using DataCamp Workspace