R/get_map.R

In PROMiDAT/ggcr: Titulo del paquete pensar y pasar a ingles

#' Titulo de la funcion
#'
#' @param prov nombre de la provincia
#' @param cant nombre del canton
#' @param dist nombre distrito
#' @param only.borders si solo se deben retornar los bordes del mapa
#'
#' @return un data.frame
#' @export
#' @import dplyr
#'
get_map <- function(prov = "all", cant = "none", dist = "none", only.borders = F, GAM = F) {

  if(GAM){
    if(prov %in% "all" & cant %in% "all")
    out <- dplyr::filter(cantones_costarica,
                         provincia %in% c("San Jose","Alajuela","Heredia","Cartago"),
                         canton %in% c("San Jose","Escazu","Desamparados","Aserri","Mora","Goicoechea","Santa Ana",
                                       "Alajuelita","Vazquez De Coronado","Tibas","Moravia","Montes De Oca","Curridabat",
                                       "Alajuela","Poas","Atenas","Cartago","Paraiso","La Union","Alvarado","Oreamuno",
                                       "El Guarco","Heredia","Barva","Santo Domingo","Santa Barbara","San Rafael","San Isidro",
                                       "Belen","Flores","San Pablo"))
    return(out)
  }

  if(only.borders) return(limites_costarica)

  if(all(prov == "all") & all(cant == "none") & all(dist == "none")){
    return(provincias_costarica)
  }
  if(all(prov != "none") & all(cant == "none") & all(dist == "none")){
    out <- dplyr::filter(provincias_costarica, provincia %in% prov)
    return(out)
  }
  if(all(prov == "all") & all(cant =="all") & all(dist == "none")){
    return(cantones_costarica)
  }
  if(all(prov != "all") & all(cant == "all") & all(dist == "none")){
    out <- dplyr::filter(cantones_costarica, provincia %in% prov)
    return(out)
  }
  if(all(prov != "none") & all(cant != "none") & all(dist == "none")){
    out <- dplyr::filter(cantones_costarica, provincia %in% prov, canton %in% cant)
    return(out)
  }
  if(all(prov == "all") & all(cant == "all") & all(dist == "all")){
    return(distritos_costarica)
  }
  if(all(prov != "all") & all(cant == "all") & all(dist == "all")){
    out <- dplyr::filter(distritos_costarica, provincia %in% prov)
    return(out)
  }
  if(all(prov != "all") & all(cant != "none") & all(dist == "all")){
    out <- dplyr::filter(distritos_costarica, provincia %in% prov, canton %in% cant)
    return(out)
  }
  if(all(prov != "all") & all(cant != "none") & all(dist != "none")){
    out <- dplyr::filter(distritos_costarica, provincia %in% prov, canton %in% cant, distrito %in% dist)
    return(out)
  }

}