R/fragmentRange.R

In elo2zero/oddsandsods: Miscellanous functions

#'
#'
#' Select equally spaced dates from giving range and length
#' @param dates
#' @param range
#' @param length
#' @return set of dates
#' @export

fragmentRange <- function(dates,range,length=3) {
  if(!missing(dates))
    u_dates <- dates %>% unique %>% sort

  if(!missing(range))
    u_dates <- seq(as.Date(range[1]), as.Date(range[2]), by = "1 days")

  if(length(u_dates)<length) length = length(u_dates)

  idx <- seq(1,length(u_dates), length.out = length) %>% unique
  return(u_dates[idx])
}