include <- rcustom("2019-07-05")
exclude <- rcustom("2019-07-04")
independence_day <- yearly() %>%
recur_on_month_of_year("July") %>%
recur_on_day_of_month(4)
# Remove forcibly excluded day
independence_day <- rsetdiff(independence_day, exclude)
# Add forcibly included day
independence_day <- runion(independence_day, include)
alma_search("2018-01-01", "2020-12-31", independence_day)
Run the code above in your browser using DataLab