cal <- cal_us_federal()
# All 2023 holidays
cal_events(cal, year = 2023)
# Notice that for 2028, `cal_events()` knows that you probably want to
# treat New Year's Day as a 2028 holiday even though it will observed in
# 2027 (because it will be a Saturday and will be rolled back to being
# observed on Friday)
cal_events(cal, year = 2028)
# Were any of these dates on a holiday?
x <- as.Date(c(
"2023-11-10",
"2023-10-05",
"2023-06-19",
"2023-05-29",
"2023-05-28"
))
alma_in(x, cal)
# Which one?
cal_match(x, cal)
Run the code above in your browser using DataLab