#' Season classifying
#'
#' @param x date
#'
#' @return text Spring, Summer, Autumn, or Winter
#' @export
#'
#'
#' @examples
#' aes_season(Sys.Date())
aes_season <-
function(x) {
x <- (as.POSIXlt(x)$mon) + 1L
c("Summer", "Summer", "Autumn", "Autumn", "Autumn", "Winter", "Winter", "Winter", "Spring", "Spring", "Spring", "Summer")[x]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.