This is a reformat and re-export of a function in the MMWRweek package.
It provides a snake case version of its counterpart, produces a tibble
a vector of Date objects or a character vector in YYYY-mm-dd format.
data frame (tibble)
mwk <- mmwr_week(Sys.Date())