rrule <- weekly() %>%
recur_on_day_of_week("Thursday")
# A Thursday and Friday
x <- as.Date("1970-01-01") + 0:1
alma_in(x, rrule)
# Every month, on the 2nd day of the month
rrule2 <- monthly() %>%
recur_on_day_of_month(2)
# Make a larger set of multiple rules
rb <- runion(rrule, rrule2)
alma_in(x, rb)
Run the code above in your browser using DataLab