Fixed until 2023 see #16 for the reason 2024 is pending

RodrigoZepeda · Jul 15, 2024 · 56ee2f7 · 56ee2f7
1 parent 143ba1c
commit 56ee2f7
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 11 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,6 +1,7 @@
 # covidmx 0.7.9
 
 * Se corrigió que cambió el link de datos del 2023. 
+* Se agregaron las nuevas clasificaciones finales para COVID y FLU.
 * Se agregó dependencia a `duckdb >= 1.0.0` para que se pueda leer entre versiones.
 
 # covidmx 0.7.8

diff --git a/R/descarga_datos_abiertos_aux.R b/R/descarga_datos_abiertos_aux.R
@@ -613,7 +613,7 @@ parse_db_diccionario_ssa <- function(diccionario_unzipped_path, clear_csv = FALS
     append(
       list("RESULTADO_LAB" = readxl::read_excel(diccionario_unzipped_path,
         sheet = "Cat\u00e1logo RESULTADO_LAB",
-        col_types = c("numeric", "text")
+        col_types = c("numeric", "text","text","text")
       ))
     ) |>
     append(
@@ -622,9 +622,16 @@ parse_db_diccionario_ssa <- function(diccionario_unzipped_path, clear_csv = FALS
         col_types = c("numeric", "text")
       ))
     ) |>
+    #FIXME: Starting in July 2024 they included two classifications
+    append(
+      list("CLASIFICACION_FINAL_COVID" = readxl::read_excel(diccionario_unzipped_path,
+        sheet = "Cat CLASIFICACION_FINAL_COVID",
+        col_types = c("numeric", "text", "text")
+      ))
+    ) |>
     append(
-      list("CLASIFICACION_FINAL" = readxl::read_excel(diccionario_unzipped_path,
-        sheet = "Cat\u00e1logo CLASIFICACION_FINAL",
+      list("CLASIFICACION_FINAL_FLU" = readxl::read_excel(diccionario_unzipped_path,
+        sheet = "Cat CLASIFICACION_FINAL_FLU",
         col_types = c("numeric", "text", "text")
       ))
     ) |>

diff --git a/R/pin_get_download_time.R b/R/pin_get_download_time.R
@@ -93,10 +93,10 @@ get_col_class <- function() {
 
 get_sites_covid <- function() {
   c(
-    "2024" = paste0(
-      "https://datosabiertos.salud.gob.mx/gobmx/salud/",
-      "datos_abiertos/datos_abiertos_influenza_covid19.zip"
-    ),
+    # "2024" = paste0(
+    #   "https://datosabiertos.salud.gob.mx/gobmx/salud/",
+    #   "datos_abiertos/datos_abiertos_influenza_covid19.zip"
+    # ),
     "2023" = paste0(
       "https://datosabiertos.salud.gob.mx/gobmx/salud",
       "/datos_abiertos/historicos/2023/",
@@ -122,10 +122,7 @@ get_sites_covid <- function() {
 
 get_site_dic <- function() {
   paste0(
-    "http://datosabiertos.salud.",
-    "gob.mx/gobmx/salud/datos_a",
-    "biertos/diccionario_datos_",
-    "covid19.zip"
+    "https://datosabiertos.salud.gob.mx/gobmx/salud/datos_abiertos/diccionario_datos_abiertos.zip"
   )
 }