R/scraping_data.R

In sivirep: Data Wrangling and Automated Reports from 'SIVIGILA' Source

#' @title Obtener la ruta de descarga de una enfermedad por un año específico
#' @description Función que obtiene la ruta o URL de la API del SIVIGILA para
#' descargar los datos de una enfermedad o evento para un año específico.
#' @param nombre_event Un `character` (cadena de caracteres) con el nombre de
#' la enfermedad o evento.
#' @param year Un `numeric` (numérico) con el año o años deseado(s) para
#' la descarga de los datos.
#' @return Un `character` (cadena de caracteres) con la ruta o URL para
#' descargar los datos de una enfermedad o evento por un año específico de la
#' fuente SIVIGILA.
#' @keywords internal
obtener_ruta_data_event_year <- function(nombre_event, year) {
  ruta_base <- obtener_val_config("base_path_microdata")
  ruta_archivo <- obtener_val_config("file_path_microdata")
  ruta_archivo_params <-
    obtener_val_config("file_path_parameters_microdata")
  ruta_microdata <- obtener_val_config("path_microdata")
  ruta_query <- obtener_val_config("query_path_microdata")
  year <- as.character(year)
  nombre_event <- utils::URLencode(nombre_event)
  ruta_query <- stringr::str_replace(
    ruta_query, stringr::fixed("_year_"),
    year
  )
  ruta_query <- stringr::str_replace(
    ruta_query, stringr::fixed("_disease_"),
    nombre_event
  )
  ruta_query_event <- paste0(
    ruta_base,
    ruta_microdata,
    ruta_query
  )
  get_query_event <- realizar_peticion_http(ruta_query_event)
  respuesta_query_event <- httr2::resp_body_string(get_query_event)
  respuesta_document <- xml2::as_xml_document(respuesta_query_event)
  ref_archivo_propiedad <- xml2::xml_find_all(respuesta_document, "//d:FileRef")
  ref_archivo_event <- xml2::xml_text(ref_archivo_propiedad)
  if (length(ref_archivo_event) >= 2) {
    ref_archivo_event <- ref_archivo_event[
      which(stringr::str_detect(
        ref_archivo_event,
        stringr::fixed(year)
      ))
    ]
  }
  ruta_archivo <- stringr::str_replace(
    ruta_archivo,
    stringr::fixed("_filepath_"),
    ref_archivo_event
  )
  ruta_descarga_archivo <- paste0(
    ruta_base,
    ruta_archivo, ruta_archivo_params
  )
  return(ruta_descarga_archivo)
}