diff --git a/code/auto_download/cases-deaths/get-ecdc.r b/code/auto_download/cases-deaths/get-ecdc.r index a24cf59a56..d0c251a13a 100644 --- a/code/auto_download/cases-deaths/get-ecdc.r +++ b/code/auto_download/cases-deaths/get-ecdc.r @@ -26,7 +26,7 @@ get_ecdc <- function(earliest_date = lubridate::today() - 7, path = snapshots_path, .limit = Inf) file_names <- vapply(files, `[[`, "name", FUN.VALUE = "") |> -- grep(pattern = "nonSentinel", value = TRUE ) + grep(pattern = "nonSentinel", value = TRUE) existing_files <- list.files( here::here("data-truth", "ECDC", "snapshots"), pattern = "nonSentinel" @@ -52,7 +52,7 @@ get_ecdc <- function(earliest_date = lubridate::today() - 7, target_variable = recode(indicator, "deaths" = "inc death", "detections" = "inc case", - ), + ), date = ISOweek::ISOweek2date(paste0(yearweek, "-6")), source = "ECDC" ) |>