How to define holidays for is.holiday() chron package in R

Question

I\'m trying to use chron\'s is.holiday() function, but I\'m having trouble getting it to work. The documentation says to modify the .Holiday

Answer 1

This is non-trivial and probably deserves to be referred to the chron maintainer as a bug.

library(chron)
library(timeDate)
hlist <- c("CAVictoriaDay","CACanadaDay","CALabourDay")
(ss <- dates(sapply(sapply(hlist,holiday,year=2011),as.Date)))
.Holidays <- ss

(Someone who actually works with dates in R more often than I do probably has a more elegant solution for the preceding stuff, without that double-sapply thing ...)

But this doesn't change the important thing, which is the version of Holidays in the chron namespace:

chron::.Holidays  ## no change

The clue is here: Override a function that is imported in a namespace

Namespace magic:

unlockBinding(".Holidays", as.environment("package:chron"))
assignInNamespace(".Holidays", .Holidays, ns="chron", 
    envir=as.environment("package:chron"))
assign(".Holidays", .Holidays, as.environment("package:chron"))
lockBinding(".Holidays", as.environment("package:chron"))

Now look, and it has worked:

chron::.Holidays

Test it out:

yrvec <- seq.Date(as.Date("2011-01-01"),
                    as.Date("2011-12-31"),by="day")
plot(is.holiday(yrvec),axes=FALSE)
axis.Date(side=1,yrvec)