Get the final date in a US/MMWR epidemiological week

Given any date from a US/MMWR epidemiological week ("epiweek") return the date of the final day of the epiweek (a Saturday).

Usage

ceiling_mmwr_epiweek(date)

Arguments

date

A date.

Value

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

Examples

ceiling_mmwr_epiweek(as.Date("2025-03-13")) # rounded to Saturday
#> [1] "2025-03-15"
ceiling_mmwr_epiweek(as.Date("2025-03-15")) # this is already Saturday
#> [1] "2025-03-15"