tests/testthat/test_geopackage.R

In SpatialWorks/gadmr: An R Interface to the GADM Map Repository

library(gadmr)
context("Test geopackage")

afg_map_0 <- get_geopackage(country = "AFG", layer = 0)
afg_map_1 <- get_geopackage(country = "AFG", layer = 1)
afg_map_2 <- get_geopackage(country = "AFG", layer = 2)

test_that("afg_map is SpatialPolygonsDataFrame", {
  expect_is(afg_map_0, "SpatialPolygonsDataFrame")
})

test_that("Produce an error message at layer = 4", {
  expect_error(get_geopackage(country = "AFG", layer = 4))
})