Create cell styles.
# S3 method for CellStyle
+(cs1, object)a CellStyle object.
an object to add. The object can be another
CellStyle, a DataFormat, a
Alignment, a Border, a Fill, a
Font, or a CellProtection object.
A CellStyle object.
The style of the argument object takes precedence over the style of argument cs1.
if (FALSE) {
cs <- CellStyle(wb) +
Font(wb, heightInPoints=20, isBold=TRUE, isItalic=TRUE,
name="Courier New", color="orange") +
Fill(backgroundColor="lavender", foregroundColor="lavender",
pattern="SOLID_FOREGROUND") +
Alignment(h="ALIGN_RIGHT")
setCellStyle(cell.1, cellStyle1)
# you need to save the workbook now if you want to see this art
}