cal <- rcalendar(
hol_christmas(),
hol_halloween(),
hol_new_years_day(),
hol_us_presidents_day()
)
x <- as.Date(c(
"2019-01-02",
"2019-12-25",
"2018-02-19",
"2018-02-20",
"2020-10-31"
))
cal_match(x, cal)
Run the code above in your browser using DataLab