# Para el ejemplo usaremos los datos precargados (datosabiertos) pero tu puedes
# correr el ejemplo descargando informacion mas reciente.
datos_covid <- datosabiertos
# Casos a nivel nacional
datos_covid <- datos_covid |> chr()
head(datos_covid$`case hospitalization rate`)
# Nacional
# \donttest{
datos_covid <- datos_covid |> chr(list_name = "chr_nacional", group_by_entidad = FALSE)
head(datos_covid$`chr_nacional`)
# CHR en IMSS e ISSSTE
datos_covid <- datos_covid |>
chr(tipo_sector = c("IMSS", "ISSSTE"), list_name = "chimss", group_by_tipo_sector = TRUE)
head(datos_covid$`chimss`)
# Calcula el CHR sobre toda la base
datos_covid <- datos_covid |>
chr(
tipo_clasificacion = c(
"Sospechosos", "Confirmados COVID",
"Negativo a COVID", "Inv\u00e1lido", "No realizado"
),
group_by_tipo_clasificacion = TRUE, list_name = "chr_todos"
)
head(datos_covid$`chr_todos`)
# Distinguiendo sólo entre defunciones
datos_covid <- datos_covid |>
chr(defunciones = TRUE, list_name = "chr_defun")
head(datos_covid$`chr_defun`)
# Si deseas agrupar por una variable que no este en las opciones
datos_covid <- datos_covid |>
chr(.grouping_vars = c("DIABETES"), list_name = "chr_diab")
head(datos_covid$chr_diab)
# }
# Finalmente desconectamos
datos_covid$disconnect()
Run the code above in your browser using DataLab