R/wp_check_date_inputs.R

In johndharrison/wikipediatrend: Public subject attention via Wikipedia page access statistics.

#' Helper function for \code{wp_trend()}
#' 
#' Function that checks if the time span given by from and to (passed down from
#' wp_trend) are complying with logical constraints: from not prior to first
#' available data; to not past today
#' 
#' @param from first date of timespan to check
#' @param to second date of timespan to check
#'   
wp_check_date_inputs <- function(from, to){
  from <- as.character(from)
  to <- as.character(to)
  if ( wp_date(from) < wp_date("2007-12-01")  ) { 
  from <- wp_date("2007-12-01")
  } 
  if ( wp_date(to) > Sys.Date()  ) { 
    to <- Sys.Date()
  } 
  return( list(from=from, to=to) )
}