tests/testthat/test-get_total_urbano.R

In eph: Argentina's Permanent Household Survey Data and Manipulation Utilities

# test_that("selec variables", {
#   skip_if_offline()
#   skip_on_cran()
#   df <- get_total_urbano(year = 2016, type = "individual", vars = c("CODUSU", "CH04", "CH06", "PONDERA"))
#   dimensiones <- dim(df)
#   expect_equal(dimensiones, c(95782, 4))
# })

test_that("antes de 2016", {
  skip_if_offline()
  skip_on_cran()
  expect_warning(df <- get_total_urbano(year = 2009, type = "individual"))
})

test_that("errores", {
  expect_warning(df <- get_total_urbano(year = 2016, type = "individu"))
})