R/season.r

In AustralianAntarcticDivision/aceecostats: Ecosystem status and trends

#' 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]
  }