tests/testthat/test-cast-geo.R

test_that("Cast geo", {
  dt <- readRDS(system.file("test-data", "cast_2010.rds", package = "norgeo"))
  dt[, name := NULL]

  expect_equal(cast_geo(2010, names = FALSE), dt)
})

Try the norgeo package in your browser

Any scripts or data that you put into this service are public.

norgeo documentation built on Aug. 15, 2023, 5:06 p.m.