A generic function for rounding date and time values
Examples
## class posixct
round_time(Sys.time(), "12 hours")
#> [1] "2024-07-18 UTC"
## class date
unique(round_time(seq(Sys.Date(), Sys.Date() + 100, "1 day"), "weeks"))
#> [1] "2024-07-18" "2024-07-25" "2024-08-01" "2024-08-08" "2024-08-15"
#> [6] "2024-08-22" "2024-08-29" "2024-09-05" "2024-09-12" "2024-09-19"
#> [11] "2024-09-26" "2024-10-03" "2024-10-10" "2024-10-17" "2024-10-24"