R/week2date.R

In zkamvar/aweek: Convert Dates to Arbitrary Week Definitions

Defines functions week2date

Documented in week2date

#' @export
#' @rdname date2week
week2date <- function(x, week_start = get_week_start(), floor_day = FALSE) {

  if (!inherits(x, "aweek")) {
    x <- as.aweek(x, start = week_start, week_start = week_start)
  }
  return(as.Date(x, floor_day))

}