rrule <- weekly() %>%
recur_on_wday("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_mday(2)
# Make a larger rbundle made of multiple rules
rb <- runion() %>%
add_rschedule(rrule) %>%
add_rschedule(rrule2)
alma_in(x, rb)
Run the code above in your browser using DataLab