如何在R中包含bizday()中的"from“day

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

只有在工作日，即is.bizday(from)==TRUE时，我们才想包含from，因此我们可以构造以下函数：

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