#' 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)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.