【R言語】lubridate 月初の日付を取得

月初の日付を取得

1. Sys.time()で現在時刻を取得
2. lubridateのyear()関数とmonth()関数で年と月を抽出
3. paste関数で01と結合

library(tidyverse)
library(lubridate)

#Sys.time()で現在日時を取得後、フォーマットで変換
today_date <- format(Sys.time(),"%Y/%b/%d %H:%M") %>% 
  as.Date()

#today_dateから年と月を取得して1日にする
month_ini <- paste(year(today_date),month(today_date),"01",sep = "-") %>% 
 as.Date()

month_ini