is.hkHoliday: Calculate Hong Kong public holidays
In chainsawriot/hongkong: An R Package for Analysing Hong Kong Data

Description Usage Arguments Value Note See Also Examples

This function is to determine the Date object in x are public holidays in Hong Kong

1	is.hkHoliday(x, push = TRUE, withSunday = TRUE)

`x`	Vector of Date object
`push`	Boolean, to push the public holidays in Sunday to the nearest workday
`withSunday`	Boolean, also included all Sundays as public holidays

logical vector

very slow despite memoisation is used

hkHoliday

1
2
3

data(hkweiboscope)
hkweiboscope$hkHoliday <- is.hkHoliday(hkweiboscope$date)
plot(x=hkweiboscope$date, y=hkweiboscope$count, col=ifelse(hkweiboscope$hkHoliday, 2, 1))