R/getAnnualRanges.R

In tmk-c/myrlib: My R library for daily work

#' Get annual date range
#'
#' @param start.year Start year of ranges
#' @param end.year End year of ranges
#'
#' @importFrom magrittr %>%
#'
#' @return charactor vector of ranges by xts format
#' @export
getAnnualRanges <- function(start.year = 2009, end.year = 2018) {

  df <- data.frame(
    start.date = seq(start.year, end.year, 1) %>% paste0(., "-01-01"),
    end.date = seq(start.year, end.year, 1) %>% paste0(., "-12-31")
  )

  return(paste(df$start.date, df$end.date, sep = "::"))
}