tests/testthat/test-deSliver.R

In ianmseddy/eddyTools:

test_that("slivers are not detected and merged", {
 library(LandR)
 library(rgeos)
 library(eddyTools)
 inner <- LandR::randomStudyArea(size = 10000*100*50, seed = 70)
 outer <- LandR::randomStudyArea(size = 10005*100*50, seed = 70)
 diff <- rgeos::gSymdifference(spgeom1 = inner,spgeom2 =  outer)
 inputArea <- bind(inner, diff)
 inputArea$test <- c("valid", "invalid")
 out <- deSliver(inputArea, threshold = 5*100*51)
 expect_null(out$tempArea)
 expect_equal(length(out), 1)
 expect_equal(extent(out), extent(inputArea))
 expect_error(deSliver(inputArea, threshold = 10000*100*50))
})