R/utils.R

In botan/aocr: Get Your Advent of Code Input in R

Defines functions valid_years valid_days curr_year curr_month curr_day

curr_day <- function() as.integer(format(Sys.time(), "%d", tz = "EST"))
curr_month <- function() as.integer(format(Sys.time(), "%m", tz = "EST"))
curr_year <- function() as.integer(format(Sys.time(), "%Y", tz = "EST"))

valid_days <- function() seq_len(25)
valid_years <- function() {
  if (curr_month() == 12) {
    seq(2015, curr_year())
  } else {
    seq(2015, curr_year() - 1)
  }
}