mypkgr: Diccionario de variables del OLN

# oln_generate_casen_cise_v1 <- function(df, year, ...) {
#   # Verifica la disponibilidad de la variable
#   if (year < 2000) stop(sprintf("aún no disponible para el año %d.", year))
#
#   # Captura los inputs de la variable
#   inputs <- oln_select("cise_v1", src = "casen", year = year)
#
#   # Genera la nueva variable
#   if (year %in% 2011:2015) i <- c(8, 9)
#   if (year %in% 2000:2009) i <- c(9, 8)
#   df <- df %>%
#     mutate(cise_v1 =
#              case_when(.[[inputs]] %in%            1 ~ 1,
#                        .[[inputs]] %in%            2 ~ 2,
#                        .[[inputs]] %in% c(3:7, i[1]) ~ 3,
#                        .[[inputs]] %in%         i[2] ~ 6,
#                        TRUE ~ NA_real_))
#
#   # Fija las etiquetas de los valores
#   labelled::val_labels(df$cise_v1) <-
#     c("empleador"     = 1,
#       "cuenta propia" = 2,
#       "asalariado"    = 3,
#       "fnr"           = 6,
#       "ns/nr"         = NA)
#
#   # Fija la etiqueta de la variable
#   labelled::var_label(df$cise_v1) <-
#     "categoría de ocupación"
#
#   # Reporta el resultado
#   return(df)
# }
#
# oln_generate_casen_cise_v2 <- function(df, year, ...) {
#   # Verifica la disponibilidad de la variable
#   if (year < 2003) stop(sprintf("aún no disponible para el año %d.", year))
#
#   # Captura los inputs de la variable
#   inputs <- oln_select("cise_v2", src = "casen", year = year)
#
#   # Genera la nueva variable
#   df <- df %>%
#     mutate(cise_v2 =
#              case_when(.$cise_v1 == 1               ~ 1,
#                        .$cise_v1 == 2               ~ 2,
#                        .$cise_v1 == 3 & .$ctto == 1 ~ 3,
#                        .$cise_v1 == 3 & .$ctto == 0 ~ 4,
#                        .$cise_v1 == 4               ~ 5,
#                        TRUE ~ NA_real_))
#
#   # Fija las etiquetas de los valores
#   labelled::val_labels(df$cise_v2) <-
#     c("empleador"               = 1,
#       "cuenta propia"           = 2,
#       "asalariado con contrato" = 3,
#       "asalariado sin contrato" = 4,
#       "fnr"                     = 6,
#       "ns/nr"                   = NA)
#
#   # Fija la etiqueta de la variable
#   labelled::var_label(df$cise_v2) <-
#     "categoría de ocupación"
#
#   # Reporta el resultado
#   return(df)
# }
#
# oln_generate_casen_ctto <- function(df, year, ...) {
#   # Verifica la disponibilidad de la variable
#   if (year < 2003) stop(sprintf("aún no disponible para el año %d.", year))
#
#   # Captura los inputs de la variable
#   inputs <- oln_select("ctto", src = "casen", year = year)
#
#   # Genera la nueva variable
#     df <- df %>%
#       mutate(ctto =
#                case_when(.[[inputs]] %in%   1 ~ 0,
#                          .[[inputs]] %in% 2:3 ~ 1,
#                          TRUE ~ NA_real_))
#
#   # Fija las etiquetas de los valores
#   labelled::val_labels(df$ctto) <-
#     c("no"    = 0,
#       "sí"    = 1,
#       "ns/nr" = NA_real_)
#
#   # Fija la etiqueta de la variable
#   labelled::var_label(df$ctto) <-
#     "¿tiene ctto escrito?"
#
#   # Reporta el resultado
#   return(df)
# }
#
# oln_generate_casen_educ_sup <- function(df, year, ...) {
#   # Verifica la disponibilidad de la variable
#   if (year < 2013) stop(sprintf("aún no disponible para el año %d.", year))
#
#   # Captura los inputs de la variable
#   inputs <- oln_select("educ_sup", src = "casen", year = year)
#
#   # Genera la nueva variable
#   df <- df %>%
#     mutate(educ_sup =
#              case_when(.[[inputs]] %in%   c(0:7, 9) ~ 0,
#                        .[[inputs]] %in% c(8, 10:12) ~ 1,
#                        TRUE ~ NA_real_))
#
#   # Fija las etiquetas de los valores
#   labelled::val_labels(df$educ_sup) <-
#     c("no"    = 0,
#       "sí"    = 1,
#       "ns/nr" = NA_real_)
#
#   # Fija la etiqueta de la variable
#   labelled::var_label(df$educ_sup) <-
#     "¿ha completado su educación superior?"
#
#   # Reporta los resultados
#   return(df)
# }
#
#