R/before-date.R

In DavisVaughan/almanac3: Tools for Adjusting and Generating Dates Using a Grammar of Schedules

#' @rdname event-date
#' @export
before_date <- function(x, inclusive = FALSE) {
  x <- vec_cast_date(x)
  vec_assert(x, size = 1L)

  test <- function(env) {
    test_before(x, current_date(env), inclusive)
  }

  new_event(
    description = glue("Before date: {collapse_and_trim(x)}"),
    test = test
  )
}