corrections

european-modelling-hubs · Dec 11, 2023 · 44a6117 · 44a6117
1 parent b04cabf
commit 44a6117
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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"
         ) |>