styling of else in R