R recursive function to add n days to a date skipping saturdays/sundays and bank holidays

Question

I have a function that can add one day to a date. In case the following date is on Saturday/Sunday/bank holiday, the function calls itself with the argument date = date + 1