tests/testthat/test-get_microdata.R

context("test-get_microdata")

test_that("EPH puntual", {
  skip_if_offline()
  skip_on_cran()
  df <- get_microdata(year = 1996, period = 1, vars = c("CODUSU", "AGLOMERADO", "IPCF"))
  dimensiones <- dim(df)
  expect_equal(dimensiones, c(113209, 3))
})


test_that("EPH continua", {
  skip_if_offline()
  skip_on_cran()
  expect_warning(df <- get_microdata(year = 2015, period = 2, vars = c("PONDERA", "ESTADO", "CAT_OCUP")))
  dimensiones <- dim(df)
  expect_equal(dimensiones, c(60028, 3))
})


test_that("Sin data", {
  skip_if_offline()
  expect_warning(df <- get_microdata(year = 2015, period = 4))
  expect_length(df, 0)
})

# test_that("muchas bases", {
#   skip_if_offline()
#   skip_on_cran()
#   df <- suppressWarnings(get_microdata(year = 2017:2018, period = 4,type = c('individual','hogar')))
#   expect_equal(dim(df$microdata[[1]]), c(58181,177))
#   expect_equal(dim(df$microdata[[2]]), c(57418,177))
#   expect_equal(dim(df$microdata[[3]]), c(18793,88))
#   expect_equal(dim(df$microdata[[4]]), c(18616,88))
# })

Try the eph package in your browser

Any scripts or data that you put into this service are public.

eph documentation built on June 23, 2024, 5:06 p.m.