[R] Extracting future and past workday dates

[Sergey Goriatchev]

Henrique, that is what I need!
Big thanks!

Regards,
Sergey

On Thu, Aug 5, 2010 at 14:56, Henrique Dallazuanna <wwwhsd at gmail.com> wrote:
> n <- 3
> w <- as.numeric(format(Sys.Date(), '%w'))
> fut <- c(Sys.Date() - 0:(n + ifelse(w - n > 6, (w - n) - 6, 0)),
>          Sys.Date() + 1:(n + 1 + ifelse(w + n > 6, (w + n) - 6, 0)))
> sort(fut[!format(fut, '%w') %in% c(6, 0)])



-- 
Kniven skärpes bara mot stenen.