if (FALSE) {
# Load workbook (create if not existing)
wb <- loadWorkbook("existsCellStyle.xlsx", create = TRUE)
# Cell style 'MyStyle' does not exist yet
stopifnot(!existsCellStyle(wb, "MyStyle"))
# Create the style "MyStyle"
createCellStyle(wb, "MyStyle")
# And now it is here
stopifnot(existsCellStyle(wb, "MyStyle"))
# clean up
file.remove("existsCellStyle.xlsx")
}
Run the code above in your browser using DataLab