# NOT RUN {
  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
# }
Run the code above in your browser using DataLab