R/H-nextYear.R

nextYear <- function(dateObject, nextMonth){
  ifelse(nextMonth=="01"
         ,as.character(lubridate::year(dateObject) + 1)
         ,as.character(lubridate::year(dateObject))
  )
}
erolbicero/tsconv documentation built on May 16, 2019, 8:49 a.m.