data-raw/create_sysdata.R

In igutierrezm/olndictr: Diccionario de variables del OLN

create_sysdata <- function() {
  # Carga las tablas de correspondencias I
  io_casen <- create_io_casen()  # vea más abajo
  io_ene   <- create_io_ene()    # vea más abajo

  # Guarda el resultado
  devtools::use_data(io_casen, internal = TRUE, overwrite = TRUE)
}

create_io_casen <- function() {
  # Crea la tabla de correspondencias
  # (Nota) Mantener este orden: df[, 1] (asc), df[, 3] (asc)
  df <- rbind(
    c("activ_",            "activ",            "2000-01", "2100-01"),
    c("cise_",             "o9",               "2003-01", "2003-01"),
    c("cise_",             "o19",              "2006-01", "2006-01"),
    c("cise_",             "o23",              "2009-01", "2009-01"),
    c("cise_",             "o15",              "2011-01", "2100-01"),
    c("edad_",             "edad",             "1990-01", "2100-01"),
    c("educ_",             "educ",             "2013-01", "2100-01"),
    c("jornada_",          "o18",              "2011-01", "2100-01"),
    c("etnia_",            "t5",               "2009-01", "2009-01"),
    c("etnia_",            "r6",               "2011-01", "2013-01"),
    c("etnia_",            "r3",               "2015-01", "2100-01"),
    c("hr_hab_",           "o10",              "2015-01", "2100-01"),
    c("macrozona_",        "r",                "1990-01", "2006-01"),
    c("macrozona_",        "region",           "2009-01", "2100-01"),
    c("nacionalidad_",     "h11",              "2011-01", "2011-01"),
    c("nacionalidad_",     "r1a",              "2013-01", "2013-01"),
    c("nacionalidad_",     "r1a",              "2015-01", "2100-01"),
    c("numper_",           "numper",           "2000-01", "2100-01"),
    c("oficio1_",          "oficio",           "2000-01", "2009-01"),
    c("oficio1_",          "oficio1",          "2011-01", "2100-01"),
    c("pobre_",            "corte",            "2006-01", "2011-01"),
    c("pobre_",            "pobreza_multi",    "2013-01", "2013-01"),
    c("pobre_",            "pobreza_multi_4d", "2015-01", "2100-01"),
    c("psu_",              "segmento",         "1998-01", "2003-01"),
    c("psu_",              "seg",              "2006-01", "2006-01"),
    c("psu_",              "segmento",         "2009-01", "2009-01"),
    c("psu_",              "varunit",          "2011-01", "2100-01"),
    c("pweight_",          "expr",             "2000-01", "2009-01"),
    c("pweight_",          "expr_full",        "2011-01", "2011-01"),
    c("pweight_",          "expr",             "2013-01", "2100-01"),
    c("rama1_",            "rama1",            "2011-01", "2100-01"),
    c("region_re_",        "r comu",           "1990-01", "2003-01"),
    c("region_re_",        "r comuna",         "2006-01", "2006-01"),
    c("region_re_",        "region comuna",    "2009-01", "2100-01"),
    c("sexo_",             "sexo",             "2000-01", "2100-01"),
    c("strata_",           "estrato",          "1998-01", "2009-01"),
    c("strata_",           "varstrat",         "2011-01", "2100-01"),
    c("tramo_edad_",       "edad",             "1990-01", "2100-01"),
    c("tramo_numper_",     "numper",           "2000-01", "2100-01"),
    c("yopr_",             "yopraj",           "1990-01", "2011-01"),
    c("yopr_",             "yoprcor",          "2013-01", "2100-01"),
    c("yopr_hr_hab_",      "yoprcor o10",      "2015-01", "2100-01"),
    c("zona_",             "z",                "1990-01", "2006-01"),
    c("zona_",             "zona",             "2009-01", "2100-01"))
  df <- tibble::as.tibble(df)

  # Ajusta los nombres de las variables
  names(df) <- c("output", "inputs", "date0", "date1")

  # Ajusta el tipo de las fechas
  df$date0  <- as.Date(paste(df$date0, "01", sep = "-"))
  df$date1  <- as.Date(paste(df$date1, "01", sep = "-"))

  # Presenta el resultado
  return(df)
}

# create_io_ene <- function() {
#   # Captura la fecha actual
#   "2100-01-01" <- as.character(Sys.Date())
#
#   # Crea la tabla de correspondencias
#   # (Nota) Mantener este orden: df[, 1] (asc), df[, 3] (desc)
#   df <- rbind(
#     c("cise_",      "categoria_ocupacion", "2010-02", "2100-01"),
#     c("duremp_",    "b17_ano b17_mes",     "2010-02", "2100-01"),
#     c("duremp_tr_", "b17_ano b17_mes",     "2010-02", "2100-01"),
#     c("edad_tr_",   "edad",                "2010-02", "2100-01"),
#     c("educ_",      "nivel termino_nivel", "2010-02", "2100-01"),
#     c("ocupado_",   "cae_general",         "2010-02", "2100-01"),
#     c("oficio1_",   "b1",                  "2010-02", "2100-01"),
#     c("rama1_",     "b14",                 "2010-02", "2100-01"),
#     c("sexo_",      "sexo",                "2010-02", "2100-01"),
#     c("zona_",      "tipo",                "2010-02", "2100-01"))
#   df <- tibble::as.tibble(df)
#
#   # Ajusta los nombres de las variables
#   names(df) <- c("output", "inputs", "date0", "date1")
#
#   # Ajusta el tipo de las fechas
#   df$date0  <- as.Date(paste(df$date0, "01", sep = "-"))
#   df$date1  <- as.Date(paste(df$date1, "01", sep = "-"))
#
#   # Presenta el resultado
#   return(df)
# }

# create_io_esi <- function() {
#   # Captura la fecha actual
#          "2100-01-01" <- as.character(Sys.Date())
#
#   # Crea la tabla de correspondencias
#   # (Nota) Mantener este orden: df[, 1] (asc), df[, 3] (desc)
#   df <- rbind(
#     c("activ_",            "CSE_ESPECIFICO",      "2010-01-01",        "2100-01-01"),
#     c("cise_",             "CISE",                "2010-01-01",        "2100-01-01"),
#     c("educ_",             "NIVEL TERMINO_NIVEL", "2010-01-01",        "2100-01-01"),
#     c("nacionalidad_"      "NACIONALIDAD",        "2010-01-01",        "2100-01-01"),
#     c("oficio1_",          "B1",                  "2010-01-01",        "2100-01-01"),
#     c("rama1_",            "B14",                 "2010-01-01",        "2100-01-01"),
#     c("sexo_",             "SEXO",                "2010-01-01",        "2100-01-01"),
#     c("tramo_edad_",       "EDAD",                "2010-01-01",        "2100-01-01"),
#     c("zona_",             "TIPO",                "2010-01-01",        "2100-01-01"))
#   df <- tibble::as.tibble(df)
#
#   # Agrega nombres y ajusta los tipos de las variables
#   names(df) <- c("output", "inputs", "date0", "date1")
#   df$date0  <- as.Date(df$date0)
#   df$date1  <- as.Date(df$date1)
#
#   # Presenta el resultado
#   return(df)
# }