tests/testthat/test-ClipSoilMap.R

context("ClipSoilMap")

test_that("ClipSoilMap generates correct SpatialPolygonsDataFrame", {

  data("PlynlimonSUBCATCHMENTS")
  data("PlynlimonSOIL")

  soilMap <- ClipMap(map = PlynlimonSOIL,
                     catchment = PlynlimonSUBCATCHMENTS[1,])

  expect_equal(dim(soilMap@data), c(19, 36))

})
cvitolo/curvenumber documentation built on April 19, 2022, 3:33 a.m.