r - 如何在 R 中为 is.holiday() chron 包定义假期

Question

我正在尝试使用 chron的 is.holiday()功能，但我无法让它工作。文档说要修改 .Holiday反对您希望使用的假期，但我对 .Holiday 所做的更改似乎没有被 is.holiday() 检测到.有人可以提供一个加载假期的适当方式的例子吗？

Answer 1

这很重要，可能值得引用 chron维护者作为一个错误。

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

(实际上比我更频繁地在 R 中处理日期的人可能对前面的东西有一个更优雅的解决方案，没有那个双 sapply 的东西......)

但这并没有改变重要的事情，那就是 Holidays的版本。在 chron命名空间:

chron::.Holidays  ## no change

线索在这里: Override a function that is imported in a namespace

命名空间魔法:

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"))

现在看，它已经奏效了:

chron::.Holidays

测试一下:

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)