tests/testthat/test-add_geom.R

test_that("add_geom works", {
  pobre_x_dpto <- get_estimation_mean(variable = "pobre06", by.x = "dpto", level = "h") %>% dplyr::filter(pobre06 == "No pobre")
  pobre_x_dpto_geo <- add_geom(data = pobre_x_dpto, unit = "Departamentos", variable = "dpto")
  testthat::expect_equal(ncol(pobre_x_dpto_geo), 7)
})
calcita/ech documentation built on March 2, 2024, 7:54 a.m.