context("testthat.R")

test_that("chilemapas datasets can be aggregated", {
  skip_on_cran() # takes > 30 seconds
  library(dplyr)
  r14 <- filter(chilemapas::mapa_comunas, codigo_region == 14)

  r14_p <- chilemapas::generar_provincias(r14)
  r14_r <- chilemapas::generar_regiones(r14)
  r14_s <- chilemapas::generar_servicios_salud(r14)

  r14_c <- chilemapas::generar_circunscripciones(r14)
  r14_d <- chilemapas::generar_distritos(r14)

  expect_is(r14_p, "data.frame")
  expect_is(r14_r, "data.frame")
  expect_is(r14_s, "data.frame")
  expect_is(r14_c, "data.frame")
  expect_is(r14_d, "data.frame")
})