ダメ出し：日付の等差数列 (*^^*)

「2020年1月から2022年5月まで、連続の月次データを生成する」ということで，持って回ったプログラムが紹介されている。

library(tidyverse)
library(lubridate) 
year_month <- seq(as.Date("2020-01-01"), as.Date("2022-05-01"),by="1 day") %>% floor_date(unit="months") %>% unique()

seq(as.Date("2020-01-01"), as.Date("2022-05-01"), by="1 month")

で十分だし，

seq(as.Date("2020-01-01"), as.Date("2022-05-01"), by="1 week")
seq(as.Date("2020-01-01"), as.Date("2022-05-01"), by="1 quarter")
seq(as.Date("2020-01-01"), as.Date("2022-05-01"), by="2 week)
seq(as.Date("2020-01-01"), as.Date("2022-05-01"), by="5 day")

などなど，なんでもありなんだけどなあ

today <- Sys.Date()
seq(today, length.out=10, by="1 week")

なんてこともできる。

「オンラインヘルプを見よ！」と言われても，? seq じゃあ出て来ない。? Date でヒントが得られる。まあ，そういうもんだろうけど。