season <- function(date){
d <- as.Date(cut(as.Date(date), "month")) + 32
season <- factor(quarters(d), labels = c("Winter", "Spring", "Summer", "Fall"))
return(season)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.