Tengo una larga lista de fechas de inicio de un determinado procedimiento. Las reglas requieren que el procedimiento se complete en, como máximo, 6 días hábiles. Deseo calcular la fecha límite.

Usando lubridate en R, puedo obtener un plazo de seis días así

> library(lubridate)
> date.in <- dmy(c("30-8-2001", "12-1-2003", "28-2-2003", "20-5-2004"))
> date.in
[1] "2001-08-30 UTC" "2003-01-12 UTC" "2003-02-28 UTC" "2004-05-20 UTC"
> deadline.using.days <- date.in + days(6)
> deadline.using.days
[1] "2001-09-05 UTC" "2003-01-18 UTC" "2003-03-06 UTC" "2004-05-26 UTC"

¿Hay una manera fácil de agregar seis días hábiles, es decir, omitiendo los sábados y domingos? Gracias.