Slide 59
Slide 59 text
speakerdeck.com/davisvaughan/slide-almanac
# A Monday
labor_day <- “2019-09-02"
# Find the next business day?
# - Sees labor day, adjust by 1 day
# - Lands on 2019-09-03, done!
sch_adjust(labor_day, on_weekends_or_holidays)
#> [1] "2019-09-03"
# - Sees labor day, adjust by -1 day
# - Lands on 2019-09-01, a Sunday, adjust by -1 day
# - Lands on 2019-08-31, a Saturday, adjust by -1 day
# - Lands on 2019-08-30, done!
sch_adjust(labor_day, on_weekends_or_holidays, -days(1))
#> [1] “2019-08-30"