convert lubridate::date to a formated date

tidyverse
8

I am running Windows 11. I got it by changing only
I have changed the Sys.setlocale("LC_TIME", "English")
This is what I get now:

library (lubridate)
#> 
#> Attaching package: 'lubridate'
#> The following objects are masked from 'package:base':
#> 
#>     date, intersect, setdiff, union
    time1<- lubridate::date ()
    time2<-as.POSIXct (time1, format="%a %b %d %H:%M:%S %Y")
    timestamp <- lubridate::round_date(time2, unit = "5 minutes")
    strftime(timestamp, format = "%A %d-%m-%Y; %H:%M")
#> [1] "Monday 18-03-2024; 16:50"

Many thanks!