tests/testthat/test-grid_state_correspondence_table.R

In geobr: Download Official Spatial Data Sets of Brazil

context("grid_state_correspondence_table")

# skip tests because they take too much time
skip_if(Sys.getenv("TEST_ONE") != "")
testthat::skip_on_cran()

test_that("grid_state_correspondence_table", {

# load data
#  load( system.file("data/grid_state_correspondence_table.RData", package="geobr") )

  data(grid_state_correspondence_table)
  head(grid_state_correspondence_table)
  # test
  expect_equal(ncol(grid_state_correspondence_table), 3)
  expect_equal(nrow(grid_state_correspondence_table), 139)

})