Skip to contents

Get the first date in a US/MMWR epidemiological week

Source: R/round_epiweek.R
floor_mmwr_epiweek.Rd

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

Usage

floor_mmwr_epiweek(date)

Arguments

date

A date.

Value

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

Examples

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