r - 如何在R中获取每月最后一个工作日的日期

Question

我需要使用 R 从当前日期获取上个月的最后一个工作日(例如，今天是 2018 年 1 月 5 日，所以我应该获取 2017 年 12 月 29 日 结果)

提前致谢

Answer 1

您需要一个工作日计算器。在这里，我使用了 RQuantLib 中的一个这是一个 CRAN 包。

给定一个日期，您可以测试它是否是给定(交换)日历中的工作日。然后你只需按你想要的时间段进行子集化。这会更容易，例如，data.table 但我在这里保持简单，以便我们只依赖一个包:

R> library(RQuantLib)
R> dateseq <- seq(as.Date("2017-12-01"), as.Date("2017-12-31"), by="1 day")
R> df <- data.frame(dates=dateseq, bizday=isBusinessDay("UnitedStates", dateseq))
R> tail(df[ df[,"bizday"], ], 1)
        dates bizday
29 2017-12-29   TRUE
R> 
R> tail(df[ df[,"bizday"], "dates"], 1)
[1] "2017-12-29"
R>