support YYYY-MM-DD format in date_to_epiweek

cmu-delphi · Mar 27, 2024 · c51f982 · c51f982
1 parent a53ad56
commit c51f982
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/model.R b/R/model.R
@@ -239,7 +239,7 @@ parse_data_frame <- function(epidata_call, df, disable_date_parsing = FALSE) {
 #' @importFrom MMWRweek MMWRweek
 #' @keywords internal
 date_to_epiweek <- function(value) {
-  date_components <- MMWRweek::MMWRweek(as.Date(as.character(value), "%Y%m%d"))
+  date_components <- MMWRweek::MMWRweek(parse_api_date(value))
   as.numeric(paste0(
     date_components$MMWRyear,
     # Pad with zeroes up to 2 digits (x -> 0x)