tests/testthat/test-alter-geo.R
In helseprofil/norgeo: Tracking Geo Code Change of Regional Granularity in Norway
test_that("Alter geo manually", {
## altOut <- readRDS(system.file("test-data", "alter-manual.rds", package = "norgeo"))
## expect_equal(alter_manual(data.table::copy(chgDT), 9999), altOut)
## expect_equal(is_delete_index(data.table::copy(chgDT), c(6, 7)), altOut)
expect_false(check_url("https://www.nothing.bla.bla"))
expect_true(check_url("https://www.ap.no"))
})
helseprofil/norgeo documentation built on Oct. 20, 2024, 1:26 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("Alter geo manually", {
## altOut <- readRDS(system.file("test-data", "alter-manual.rds", package = "norgeo"))
## expect_equal(alter_manual(data.table::copy(chgDT), 9999), altOut)
## expect_equal(is_delete_index(data.table::copy(chgDT), c(6, 7)), altOut)
expect_false(check_url("https://www.nothing.bla.bla"))
expect_true(check_url("https://www.ap.no"))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.