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_day_of_month(25)
# On weekends OR the 25th of the month
ru <- runion(on_weekends, on_25th)
alma_events(ru)
# On weekends AND the 25th of the month
ri <- rintersect(on_weekends, on_25th)
alma_events(ri)
# On weekends AND NOT the 25th of the month
rsd1 <- rsetdiff(on_weekends, on_25th)
alma_events(rsd1)
# On the 25th of the month AND NOT the weekend
rsd2 <- rsetdiff(on_25th, on_weekends)
alma_events(rsd2)
Run the code above in your browser using DataLab