r - 如何在 R 的 bizdays() 中包含“从”日

Question

假设我执行以下操作：

create.calendar(name='MyCalendar', weekdays=c('sunday', 'saturday'),
            adjust.from=adjust.next, adjust.to=adjust.previous)
bizdays.options$set(default.calendar='MyCalendar')

现在，我想计算 2020-11-23 和 2020-11-27（包括 11 月 23 日和 27 日）之间的工作日数。

但是，当我使用bizdays()：

bizdays("2020-11-23", "2020-11-27")

输出为“4”。我想得到一个“5”来包括所有的日子。我怎样才能做到这一点？

谢谢！

Answer 1

我们只想在from工作日包含，is.bizday(from)==TRUE因此我们可以组成以下函数：

library(bizdays)
bizdays_inc <- function (from, to, cal = bizdays.options$get("default.calendar")) 
{
    is.bizday(from) + bizdays(from, to, cal)
}
bizdays_inc("2020-11-23", "2020-11-27")
[1] 5

或者，如果我们FALSE在日历中将财务标志设置为：

create.calendar(name='MyCalendar', weekdays=c('sunday', 'saturday'),
            adjust.from=adjust.next, adjust.to=adjust.previous, financial=F)
bizdays.options$set(default.calendar='MyCalendar')

bizdays("2020-11-23", "2020-11-27")
[1] 5