tests/testthat/test-halton.frame.R

In tmcd82070/SDraw: Spatially Balanced Samples of Spatial Objects

# test-halton.frame.R
context("Testing halton.frame()")


# create spatial points object
# load pre-built dataset
# data(meuse)
data(WA.cities)

# prepare the 3 components: coordinates, data, and proj4string
# coords <- meuse[ , c("x", "y")]   # coordinates
# data   <- meuse[ , 3:14]          # data
# crs    <- CRS("+init=epsg:28992") # proj4string of coords

# assign
# spObj <- SpatialPoints(coords)
attr(WA.cities,"J") <- c(6,3)
attr(WA.cities,"bases") <- c(2,3)
attr(WA.cities,"hl.bbox") <- bbox(WA.cities) + c(0,0,1,1)

# make the spatial points data frame object
# spdf <- SpatialPointsDataFrame(coords = coords,
#                                data = data, 
#                                proj4string = crs)


test_that("check if error is thrown when incorrect index name is given", {
  # use pre-built dataframe, 'mtcars' being my favorite
  expect_error(halton.frame(mtcars, "gears", "Lowest to Highest"), "gears column not found in data frame.")
})

test_that("make sure the frame output is correctly formatted", {
  expect_type(halton.frame(mtcars, "hp", "Lowest to Highest"), "list")
  expect_length((halton.frame(mtcars, "hp", "Lowest to Highest")$"Lowest to Highest"), 32)
  expect_s3_class(halton.frame(mtcars, "disp", "Ascending Order"), "data.frame")
})

test_that("check if error is thrown with invalid dataframe", {
  expect_error(halton.frame(550, "", ""))
})

# test_that("x is a SpatialPointsDataFrame",{
#   expect_type(halton.frame(spdf, "cadmium", "Lowest to Highest"), "S4")
#   expect_is(halton.frame(spdf, "cadmium", "Lowest to Highest"), "SpatialPointsDataFrame")
# })

test_that("x is a SpatialPointsDataFrame",{
  expect_type(halton.frame(WA.cities, "POP_2010", "Lowest to Highest"), "S4")
  expect_is(halton.frame(WA.cities, "POP_2010", "Lowest to Highest"), "SpatialPointsDataFrame")
})