R/get_sinim_cats.R

In robsalasco/sinimr: Chilean Municipalities Information System Wrapper

#' Get SINIM data categories
#' @return Returns a data frame with available data in SINIM's webpage
#' @export
#' @examples
#' get_sinim_cats()

get_sinim_cats <- function() {
  body <- list("dato_area[]" = "T")
  resp <- postapi("http://datos.sinim.gov.cl/datos_municipales/obtener_datos_filtros.php", body)
  out <- lapply(resp, function(x) data.frame(variable = x$nombre_subarea, code = x$id_subarea))
  
  return(out)
}