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

lubridate's floor_date keeps it a Date

library(lubridate)

floor_date(Sys.Date(), "month")