Change day of the month in a Date to first day (01)

Question

I want to set the day of month in a Date to start date of current month (01). Now I use the following:

currentDate <- Sys.Date()         


        

Answer 1

Using lubridate (also work with sec, min, hour, mon, year etc.)

library(lubridate)

dt <- Sys.Date()
day(dt) <- 01

dt
# [1] "2018-01-01"