tests/testthat/test-bboxSpatialPolygon.R

context("bboxSpatialPolygon")

test_that("Test bboxSpatialPolygon function", {

  boundingbox <- raster::extent(c(-180, +180, -50, +50))
  bbSP <- bboxSpatialPolygon(boundingbox = boundingbox)

  expect_that("SpatialPolygons" %in% class(bbSP), equals(TRUE))

})

Try the hddtools package in your browser

Any scripts or data that you put into this service are public.

hddtools documentation built on Feb. 15, 2021, 1:08 a.m.