# \donttest{
# Descarga de datos estatales
url_global <- paste0(
"https://media.githubusercontent.com/media/RodrigoZepeda/",
"CapacidadHospitalariaMX/master/processed/"
)
if (RCurl::url.exists(paste0(url_global, "HospitalizacionesMX_estatal.csv"))) {
ocupacion_hospitalaria <- descarga_datos_red_irag("Estatal", show_warnings = FALSE)
}
# También puedes hacer la descarga por unidad medica
# Descarga de datos por unidad medica
if (RCurl::url.exists(paste0(url_global, "HospitalizacionesMX_unidad_medica.csv"))) {
ocupacion_unidad <- descarga_datos_red_irag("Unidad Medica", show_warnings = FALSE)
}
# }
Run the code above in your browser using DataLab