Доходность на следующий рабочий день в R

Question

Мне нужно рассчитать следующий рабочий день в R с двумя параметрами сегодняшняя дата и data.frame, имеющим список дат, которые являются выходными

Я пытался, но это дает только сегодняшнюю дату

> cal <- create.calendar("MyCalendar", holidays = as.timeDate(HolidayList$Holidays), weekdays=c("sunday"))
> following(Sys.Date(),'MyCalendar')
[1] "2019-03-20"
> adjust.next(Sys.Date(),'MyCalendar')
[1] "2019-03-20"

Answer 1

функция смещения сделала свое дело

> offset(Sys.Date(),1,'MyCalendar')
[1] "2019-03-21"

также add.bizdays(dates, n, cal) функция работает так же

> add.bizdays(Sys.Date(),3,'MyCalendar')
[1] "2019-03-25"