since <- "2019-04-01"
until <- "2019-05-31"
on_weekends <- weekly(since = since, until = until) %>%
recur_on_weekends()
on_25th <- monthly(since = since, until = until) %>%
recur_on_mday(25)
# On weekends OR the 25th of the month
ru <- runion() %>%
add_rschedule(on_weekends) %>%
add_rschedule(on_25th)
alma_events(ru)
# On weekends AND the 25th of the month
ri <- rintersect() %>%
add_rschedule(on_weekends) %>%
add_rschedule(on_25th)
alma_events(ri)
# On weekends AND NOT the 25th of the month
rsd1 <- rsetdiff() %>%
add_rschedule(on_weekends) %>%
add_rschedule(on_25th)
alma_events(rsd1)
# On the 25th of the month AND NOT the weekend
rsd2 <- rsetdiff() %>%
add_rschedule(on_25th) %>%
add_rschedule(on_weekends)
alma_events(rsd2)
Run the code above in your browser using DataLab