cal <- rcalendar(
hol_christmas(),
hol_halloween(),
hol_new_years_day(),
hol_us_presidents_day()
)
# Can't forget Easter!
cal %>%
cal_add(hol_easter())
# Didn't actually need Halloween
cal %>%
cal_remove(hol_halloween())
# Can remove by name or by object
cal %>%
cal_remove("Halloween")
Run the code above in your browser using DataLab