How to include "from" day in bizdays() in R

Question

Let's say I do the following:

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

Now, I want to calculate the number of business days between 2020-11-23 and 2020-11-27 (including November 23rd and 27th).

However, when I use bizdays():

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

The output is "4". I would like to get a "5" to include all days. How can I achieve this?

Thanks!

Abdessabour Mtk · Accepted Answer · 2020-11-27T15:51:05.810

1

We want to include from only if it's a business day i.e is.bizday(from)==TRUE thus we can make up the following function:

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

Or if we set the financial flag to FALSE in the calendar:

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

edited Nov 27 '20 at 15:51

answered Nov 26 '20 at 22:49

Abdessabour Mtk

3,895
2
14
21

Thanks! I think this will be useful. However, is there any other way of achieving this by using the bizdays package instead of creating a custom function? – caproki Nov 27 '20 at 15:13
@caproki this uses the bizdays package. – Abdessabour Mtk Nov 27 '20 at 15:34
I meant by using it directly. But it's ok – caproki Nov 27 '20 at 15:38
@caproki tbh I looked in the bizdays code you need to set the financial flag in the calendar to `FALSE`, check my edit – Abdessabour Mtk Nov 27 '20 at 15:49

How to include "from" day in bizdays() in R

1 Answers1