r - 随机日期的(下)月末

Question

我有一个问题，从一天中获取月底的最快方法是什么。我有一个非常大的表，我希望我的代码能够快速运行。我当前的代码如下所示:

library(lubridate)

end_of_month <- function(date){
 day(date) <- days_in_month(date)
 date
}

我还有一个问题。这是从随机日期获取下个月最后一天的快速方法吗？

"2019-05-15" %>% as.Date() %m+% months(1) %>% end_of_month  # 2019-06-30

我可以一步完成此操作还是需要一个额外的函数来处理此问题？

Answer 1

更新答案

感谢@Edward 在原始答案中指出问题。

您可以在原始日期添加 1 个月后使用 ceiling_date

ceiling_date(as.Date('2019-05-15') + months(1), unit = "month") - 1
#[1] "2019-06-30"

ceiling_date(as.Date('2019-04-15') + months(1), unit = "month") - 1
#[1] "2019-05-31"

---

旧答案

我们可以使用 ceiling_date 和 unit 作为 '2 个月'

library(lubridate)
'2019-05-15' %>% as.Date() %>% ceiling_date(unit = '2 months') - 1
#[1] "2019-06-30"