tests/testthat/test-bas.polygon.R

In tmcd82070/SDraw: Spatially Balanced Samples of Spatial Objects

# test-bas.polygon.R
context("Testing bas.polygon()")


#load pre-built dataset
data(WY)

# create spatial polygons object
# make "squares" with integer values rounded in a list
square <- rbind( c(2, 4, 3, 4, 3, 5,
                   2, 5, 2, 4, 2, 4),
                 c(6, 9, 7, 9, 7, 8,
                   6, 8, 6, 9, 6, 9))

# give these "squares" an identification
ID <- c("shape1", "shape2")

# create SpatialPolygon object from these squares 
spatPoly <- SpatialPolygons(list(
  Polygons(list(Polygon(matrix(square[1, ], ncol = 2, byrow = TRUE))), ID[1]),
  Polygons(list(Polygon(matrix(square[2, ], ncol = 2, byrow = TRUE))), ID[2])
))


test_that("warning when sample size less than 1",{
  expect_warning(bas.polygon(WY, 0), "Sample size less than one has been reset to 1")
})

test_that("x is a SpatialPolygins", {
  expect_is(bas.polygon(spatPoly,25), "SpatialPointsDataFrame")
  expect_type(bas.polygon(spatPoly, 20), "S4")
})

test_that("x is a SpatialPointsDataFrame", {
  expect_is(bas.polygon(WY,25), "SpatialPointsDataFrame")
  expect_type(bas.polygon(WY, 20), "S4")
})

test_that("check for the column names",{
  expect_named(bas.polygon(WY, 50), c("sampleID", "geometryID", "STATEFP", "COUNTYFP", "NAME"))
})