#' Select optimal dates set from giving range
#'
#' Select optimal dates set from giving range or larger set of dates
#' @param dates
#' @param range
#' @param length
#' @return set of dates
#' @export
sparseRange <- 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 months")
if(length(u_dates)<length) length = length(u_dates)
idx <- seq(1,length(u_dates), length.out = length)
return(u_dates[idx])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.