R bizdays函数在启动时返回不正确的值&；结束日期为非工作日

我需要计算两个日期之间的工作日数。我已经设置了一个自定义日历，用于说明组织内的假期。bizdays函数似乎返回了错误的值-例如：

> library(bizdays)
> library(lubridate)
> bizdays(ymd('2017-06-12'), ymd('2017-06-16'))
[1] 4

---

（事实上，这应该返回5，因为我在问本周的周一到周五之间有多少天。）然而，这并不像每次使用此函数时只添加一个工作日那么简单。根据日历中的开始/结束日期是周末还是节假日，输出会进一步变化。如果有帮助的话，我可以发布各种排列（开始日期为周末，结束日期为工作日等），还有其他人遇到过这个问题吗？如果是这样，bizdays的工作模式是什么

这应该返回16-12=4（如果该周有假期，则返回3）有多少个数字介于4和10之间-->10-4+1=7@lebelinoz@Masoud看起来bizdays不包括这两个方面days@lebelinoz@Masoud我不认为它像16-12=4那么简单。例如：

>bizdays（ymd（'2017-06-12'）、ymd（'2017-06-17'））[1]4>bizdays（ymd（'2017-06-11'）、ymd（'2017-06-17'））[1]5>bizdays（ymd（'2017-05-29'）、ymd（'2017-06-17'））[1]14

（包括5月29日，以供参考-这是一个假日-在这种情况下，正确计算工作日数。不确定是否为b/c，它是否将其视为假日，或进行与我原来帖子中相同的计算）