R/this_week.R

Defines functions this_week

Documented in this_week

this_week <-
  function(x = Sys.Date(), 
           part = getOption("timeperiodsR.parts"),
           week_start = 1) {
    
    if ( ! inherits(x, "Date") ) {
      x <- as.Date(x)
    }
    
  start <- floor_date( x, unit = "week", week_start)
  stop  <- start + days(6) 
  out   <- custom_period(start, stop)
  
  part <- match.arg(part, getOption("timeperiodsR.parts"))
  
  if ( part == "all" ) {
    return(out) 
  } else {
    return(out[[part]]) 
  } 
}

Try the timeperiodsR package in your browser

Any scripts or data that you put into this service are public.

timeperiodsR documentation built on April 20, 2023, 5:13 p.m.