tests/testthat/test-calculate_coobs.R

In sgsR: Structurally Guided Sampling

test_that("Total outputs", {
  skip_on_cran()

  o <- calculate_coobs(mraster = mrastersmall[[1:2]], existing = existing, plot = TRUE, cores = 4)

  expect_equal(nrow(o), 110L)
  expect_equal(ncol(o), 141L)
  expect_equal(nlyr(o), 2L)

  expect_named(o, c("COOB", "COOBclass"))

  expect_s4_class(o, "SpatRaster")
})