An R function for calculating the number of business days between dates