wb <-
wb_workbook() %>%
wb_add_worksheet("S1") %>%
wb_add_data("S1", mtcars)
wb %>%
wb_add_cell_style(
"S1",
"A1:K1",
textRotation = "45",
horizontal = "center",
vertical = "center",
wrapText = "1"
)
Run the code above in your browser using DataLab