I come across the following issue and can fix it with a simple "-1" to the weeknumber. But would that fix work for any date and where does it come from?
date <- "2020-06-15 16:00:00"
week <- as.character(strftime(date, format = "%V"))
as.POSIXct(as.Date(paste(2020, week, 1, sep="-"), "%Y-%U-%u"))
[1] "2020-06-22 02:00:00 CEST"
We're off by a week. Thank you!