/
show_arg_codes.R
91 lines (60 loc) · 2.85 KB
/
show_arg_codes.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
#' Diccionario de códigos identificadores de distritos
#'
#'@description
#' Función que devuelve un \emph{data.frame} con códigos y equivalencias de identificación de unidades geográficas
#'
#'@param viewer Por default es \code{TRUE} y muestra una tabla formateada en el \emph{Viewer} de \emph{RStudio}. Cuando \code{FALSE} imprime en consola.
#'
#'@param nivel Un character que permite elegir opción para ver diccionario a nivel de \code{"provincias"} o de \code{"departamentos"}.
#'
#'@import geofacet
#'
#'@examples
#'
#' show_arg_codes(viewer = FALSE)
#'
#'@export
show_arg_codes <- function(viewer = TRUE,
nivel = "provincias"){
# Check parameters
assertthat::assert_that(is.character(nivel),
msg = "nivel debe ser del tipo 'character'. Opciones 'provincias' (default) o 'departamentos'")
assertthat::assert_that(nivel %in% c("provincias", "departamentos"),
msg = " 'provincias' o 'departamentos' son las unicas opciones validas")
seleccion <- if(nivel == "provincias"){
full_geo_metadata %>%
dplyr::select(id = name_prov, codprov, codprov_censo, codprov_iso, name_iso) %>%
dplyr::distinct() %>%
dplyr::add_row(.before = 1, id = "ARGENTINA", codprov = " ", codprov_censo = " ",
codprov_iso = "AR", name_iso = "Argentina")%>%
dplyr::add_row(.after = 25, id = "AGLOMERADOS", codprov = " ", codprov_censo = " ",
codprov_iso = "AR", name_iso = "Aglomerados Urbanos - EPH (INDEC)")
} else {
full_geo_metadata %>%
dplyr::select(id = name_prov, codprov, coddepto,
codprov_censo, coddepto_censo, nomdepto_censo) %>%
dplyr::add_row(.before = 1, id = "ARGENTINA",
codprov = " ",
coddepto = " ",
codprov_censo = " ",
coddepto_censo = " ",
nomdepto_censo = " ")
}
if(viewer == FALSE){
seleccion
} else {
selection <- dplyr::case_when(nivel == "provincias" ~ "Provincial",
nivel == "departamentos" ~ "Departamental")
seleccion %>%
gt::gt()%>%
gt::cols_label(id = gt::md(("ID grilla"))) %>%
gt::tab_spanner(columns = dplyr::matches("censo"), label = "INDEC") %>%
gt::tab_spanner(columns = dplyr::matches("iso"), label = "ISO") %>%
gt::tab_spanner(columns = dplyr::matches("prov$|depto$"), label = "INDRA") %>%
gt::tab_header(
title = gt::md("**Diccionario de equivalencias para identificadores geogrficos**"),
subtitle = gt::md(glue::glue(("**Argentina - Nivel {selection}**")))) %>%
gt::tab_source_note(
source_note = gt::md("**Fuente:** geofaceteAR - *https://electorarg.github.io/geofaceteAR*"))
}
}