add case data source

code/auto_download/cases-deaths/get-ecdc.r

@@ -5,6 +5,7 @@ library("purrr")
 library("tidyr")
 library("dplyr")
 library("vroom")
+library("tibble")
 library("ISOweek")
 
 get_ecdc <- function(earliest_date = lubridate::today() - 7,
@@ -61,16 +62,28 @@ get_ecdc <- function(earliest_date = lubridate::today() - 7,
         dplyr::select(
           location_name, location, target_variable, date, value, source
         )
-      file_name <- paste0("covid-cases-deaths_", file_date, ".csv")
-      vroom::vroom_write(df, file.path(local_path, file_name), delim = ",")
       return(df)
     } else {
       return(NULL)
     }
   }
 
   ## save snapshots
-  snapshots <- purrr::map(process_files, dl_snapshot)
+  snapshots <- tibble(
+    file_name = process_files,
+    data = purrr::map(process_files, dl_snapshot)
+  ) |>
+    dplyr::mutate(
+      file_date = as.Date(
+        sub("^.*([0-9]{4}-[0-9]{2}-[0-9]{2}).*$", "\\1", file_name)
+      ),
+      file = file.path(
+        local_path, paste0("covid-cases-deaths_", file_date, ".csv")
+      )
+    ) |>
+    dplyr::group_by(file) |>
+    dplyr::summarise(x = list(bind_rows(data)), .groups = "keep") |>
+    purrr::pmap(vroom::vroom_write, delim = ", ")
 
   return(snapshots)
 }