tests/testthat/test-cast-geo.R

# test_that("Cast geo", {
#   dt <- readRDS(system.file("test-data", "cast_2024b.rds", package = "norgeo"))
#   dt[, name := NULL]
#   setkey(dt, code)
# 
#   expect_equal(cast_geo(2024, names = FALSE), dt)
# })
helseprofil/norgeo documentation built on Oct. 20, 2024, 1:26 p.m.