r - R中的下一个工作日收益

Question

我需要用两个参数今天的日期和一个包含假期日期列表的数据框来计算 R 中的下一个工作日

我试过了，但它只产生今天的日期

> 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"