tests/testthat/test-list_geobr.R

In geobr: Download Official Spatial Data Sets of Brazil

context("lookup_muni")

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

# Reading the data -----------------------


test_that("lookup_muni", {


  # read data
  df <- list_geobr()

  # check number of cols
  testthat::expect_equal(ncol(df), 4)
  testthat::expect_true(is.data.frame(df))


  df_long <- list_geobr(wide = FALSE)
  testthat::expect_true(nrow(df_long) > 190)



})




# ERRORS and messagens  -----------------------
test_that("list_geobr", {

  expect_error(list_geobr(1))
  expect_error(list_geobr('a'))

})