tests/testthat/test-norgeo.R

In helseprofil/orgdata: Aggregating Original Data

# test_that("Merge to geo cast", {
#   testthat::skip_on_covr()
#   testthat::skip_on_ci()
#   testthat::skip_on_cran()
#   skip_if_check()
#   ## simpleDT <- readRDS(system.file("testdata_dev", "make-file-dt.rds", package = "orgdata"))
#   ## leseOUT <- readRDS(system.file("testdata_dev", "make-file2-dt.rds", package = "orgdata"))
#   ## debug_opt("nrow", 500)
#   ## expect_equal(make_file("ENPERSON", 272, year = 2021), simpleDT)
#   ## expect_equal(make_file("LESEFERD", 144, year = 2021), leseOUT)
#   reset_opt()
# })