R/check_date.R

In aecoleman/crontabr: Read Crontab Files

check_date <- function(date = Sys.Date(), line) {

  line_args <-
    line %>%
    split_line() %>%
    magrittr::extract(3L:5L) %>%
    purrr::discard(~ .x == "*")

  results <-
    all(
      check_day_of_month(date, line_args),
      check_month(date, line_args),
      check_weekday(date, line_args)
      )

  results

}

check_month <- function(date, line_args) {

  test_val <-
    line_args %>%
    purrr::pluck("month") %>%
    split_arg() %>%
    parse_month()

  results <-
    c(
      is.null(test_val),
      lubridate::month(date) %in% test_val
      )

  any(results)

}

check_day_of_month <- function(date, line_args) {

  test_val <-
    line_args %>%
    purrr::pluck("day_of_month") %>%
    split_arg() %>%
    parse_day_of_month()

  results <-
    c(is.null(test_val),
      lubridate::day(date) %in% test_val,
      test_val == -1L && lubridate::day(date) == lubridate::days_in_month(date)
      )

  any(results)

}

check_weekday <- function(date, line_args) {

  test_val <-
    line_args %>%
    purrr::pluck("weekday") %>%
    split_arg() %>%
    parse_month()

  results <-
    c(is.null(test_val),
      (lubridate::wday(x = date, label = FALSE, abbr = FALSE) - 1L) %in% test_val
      )

  any(results)

}