tests/testthat/test-add_varlist.R

In igutierrezm/olndictr: Diccionario de variables del OLN

# testthat::context("Adding variables")
# 
# #===============================================================================
# # Prólogo
# #===============================================================================
# 
# # Limpia la consola y el entorno global
# cat("\014")  
# rm(list = ls())
# 
# # Añade paquetes auxiliares
# library(dplyr)
# 
# # Identifica el directorio de las BBDD
# data <- "C:/Users/observatorio02/Google Drive/BBDD/rds"
# 
# # Funciones auxiliares
# create_test_data <- function(newvar, src, year, month) {
#   # Deduce los inputs relevantes para crear varlist
#   inputs <- find_inputs(newvar, src, year, month)
# 
#   # Crea todas las combinaciones posibles de los inputs
#   df <- readRDS(sprintf("%s/CASEN 2015.rds", data)) %>%
#     select(one_of(inputs)) %>%
#     lapply(attr, "labels") %>%
#     lapply(append, NA)     %>%
#     expand.grid()
#   
#   # Prueba la función
#   df  <- add_varlist(df, newvar, src, year, month)
# 
#   # Crea todas las combinaciones posibles de las etiquetas
#   f  <- function(x) names(attr(x, "labels"))
#   lb <- readRDS(sprintf("%s/CASEN 2015.rds", data)) %>%
#     select(one_of(inputs)) %>%
#     lapply(f)              %>%
#     lapply(append, NA)     %>%
#     expand.grid()
# 
#   # Combina las BBDD
#   lb <- as.data.frame(c(lb, df[newvar]))
#   print(lb)
#   
#   # Presenta el resultado
#   return(df)
# }
# 
# #===============================================================================
# # CASEN
# #===============================================================================
# 
# varlist <- 
#   c("activ_", "cise_", "educ_", "etnia_", "jornada_", "nacionalidad_",
#     "macrozona_", "oficio1_", "pobre_", "rama1_", "sexo_", "zona_")
# 
# for (var in varlist) {
#   testthat::test_that(sprintf("La variable %s está bien definida", var), {
#     # Not run
#     df <- create_test_data(var, "casen", 2015, 1)
#     testthat::expect_equal(1, 1)
#     
#     # Guarda el resultado
#     file <- sprintf("tests/testthat/data/casen_2015_%s.RData", var)
#     save(df, file = file)
#   })
# }