# S4 method for workbook
getCellStyle(object,name)
'>workbook
, '>cellstyle
, setStyleAction
,
createCellStyle
, getOrCreateCellStyle
,
existsCellStyle
,
setStyleNamePrefix
, setCellStyle
,
setDataFormat
, setBorder
,
setFillBackgroundColor
, setFillForegroundColor
,
setFillPattern
, setWrapText
# NOT RUN {
# Load workbook (create if not existing)
wb <- loadWorkbook("getCellstyles.xlsx", create = TRUE)
# You wouldn't usually ignore the return value here...
createCellStyle(wb, 'Header')
# ... but if you did it doesn't hurt.
cs <- getCellStyle(wb, 'Header')
# Specify the cell style to use a solid foreground color
setFillPattern(cs, fill = XLC$"FILL.SOLID_FOREGROUND")
# Specify the foreground color to be used
setFillForegroundColor(cs, color = XLC$"COLOR.RED")
# clean up
file.remove("getCellstyles.xlsx")
# }
Run the code above in your browser using DataLab