Create sequence of date on every last day of month

Question

I'm trying to create a sequence of date on every last day of the months. For example, the start date is "2018-01-31". I want to create a sequence of every last day of month since the start date.

[1] "2018-01-31" "2018-02-28" "2018-03-31" "2018-04-30" "2018-05-31" "2018-06-30"

I'm trying to use this syntax:

seq(as.Date("2018-01-31",format="%Y-%m-%d"),by="month",length.out=6)

But it gives this output instead:

[1] "2018-01-31" "2018-03-03" "2018-03-31" "2018-05-01" "2018-05-31" "2018-07-01"

How to get the last day of every months since the start date?

[Add (subtract) months without exceeding the last day of the new month](https://stackoverflow.com/questions/22628863/add-subtract-months-without-exceeding-the-last-day-of-the-new-month) — Henrik, Jul 28 '22 at 17:26

score 5 · Accepted Answer · answered Nov 23 '21 at 08:07

5

If you want last day of month, instead of start from 2018-01-31, try

seq(as.Date("2018-02-01",format="%Y-%m-%d"),by="month",length.out=6) -1
[1] "2018-01-31" "2018-02-28" "2018-03-31" "2018-04-30" "2018-05-31" "2018-06-30"

answered Nov 23 '21 at 08:07

Park

14,771
6
10
29

score 5 · Answer 2 · answered Nov 23 '21 at 08:13

5

We can use the lubridate package and its %m+% operator:

library(lubridate)

as.Date("2018-01-31") %m+% months(0:5)
#> [1] "2018-01-31" "2018-02-28" "2018-03-31" "2018-04-30" "2018-05-31" "2018-06-30"

answered Nov 23 '21 at 08:13

Aurèle

12,545
1
31
49

LMc · Answer 3 · 2022-07-28T17:13:17.557

tidyverse has added the clock package in addition to the lubridate package that has nice functionality for this:

library(clock)

date_build(2018, 1:5, 31, invalid = "previous")
[1] "2018-01-31" "2018-02-28" "2018-03-31" "2018-04-30" "2018-05-31"

When the date is sequenced, 2018-02-31 is not a valid date. The invalid argument makes explicit what to do in this case: go to the last day of the "previous" valid date.

Create sequence of date on every last day of month

3 Answers3