my_theme <- xls_theme(
title = openxlsx::createStyle(),
col_header = openxlsx::createStyle(),
character = openxlsx::createStyle(),
footnote1 = openxlsx::createStyle(),
footnote2 = openxlsx::createStyle(),
footnote3 = openxlsx::createStyle(),
mergedcell = openxlsx::createStyle()
)
if (FALSE) {
toxlsx(object = iris, path = tempdir(), theme = my_theme)
}
Run the code above in your browser using DataLab