## load a workbook
wb <- loadWorkbook(xlsxFile = file.path(path.package("openxlsx"), "loadExample.xlsx"))
## create a new style and replace style 2
newStyle <- createStyle(fgFill = "#00FF00")
## replace style 2
getStyles(wb) ## prints styles
replaceStyle(wb, 2, newStyle = newStyle)
## Save workbook
saveWorkbook(wb, "replaceStyleExample.xlsx", overwrite = TRUE)
Run the code above in your browser using DataLab