Get the final date in an ISO week

Given any date from an ISO week ("isoweek") return the date of the final day of the isoweek (a Sunday).

Usage

ceiling_isoweek(date)

Arguments

date

A date.

Value

The date that ends the epidemiological week, as a lubridate::date().

Examples

ceiling_isoweek(as.Date("2025-03-13")) # rounded to Sunday
#> [1] "2025-03-16"
ceiling_isoweek(as.Date("2025-03-16")) # this is already Sunday
#> [1] "2025-03-16"