Я ищу, чтобы получить первый рабочий день месяца в R для китайского календаря. Я написал следующее:
dts <- seq(as.Date("2020-01-06"), as.Date("2025-12-30"), by="days")
unique(getdate("first bizday", ref(dts, ym = "month"), "QuantLib/China"))
Что возвращает:
[1] "2020-01-02" "2020-02-03" "2020-03-02" "2020-04-01" "2020-05-04" "2020-06-01" "2020-07-01" "2020-08-03" "2020-09-01" "2020-10-01" "2020-11-03" "2020-12-01"
[13] "2021-01-04" "2021-02-01" "2021-03-01" "2021-04-01" "2021-05-03" "2021-06-01" "2021-07-01" "2021-08-02" "2021-09-01" "2021-10-01" "2021-11-01" "2021-12-01"
[25] "2022-01-03" "2022-02-01" "2022-03-02" "2022-04-01" "2022-05-02" "2022-06-01" "2022-07-01" "2022-08-01" "2022-09-01" "2022-10-03" "2022-11-01" "2022-12-01"
[37] "2023-01-02" "2023-02-01" "2023-03-01" "2023-04-03" "2023-05-02" "2023-06-01" "2023-07-03" "2023-08-01" "2023-09-01" "2023-10-02" "2023-11-01" "2023-12-01"
[49] "2024-01-02" "2024-02-01" "2024-03-01" "2024-04-01" "2024-05-02" "2024-06-03" "2024-07-01" "2024-08-01" "2024-09-02" "2024-10-01" "2024-11-01" "2024-12-02"
[61] "2025-01-02" "2025-02-03" "2025-03-05" "2025-04-01" "2025-05-02" "2025-06-02" "2025-07-01" "2025-08-01" "2025-09-01" "2025-10-01" "2025-11-03" "2025-12-01"
, но можно видеть, что: 4 мая 2020 г. День Труда включен, в то время как он является праздничным c праздником. Есть ли способ получить список строго рабочих дней, не включая праздники? 1009 *?