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