tests/testthat/test-landscape_structure_from_raster.R

In rflsgen: Neutral Landscape Generator with Targets on Landscape Indices

test_that("landscape_structure_from_raster", {
  gc()
  path <- system.file("extdata", "mask_raster.tif", package = "rflsgen")
  struct <- flsgen_extract_structure_from_raster(path, c(1))
  a <- flsgen_generate(struct)
  jstruct <- jsonlite::fromJSON(struct)
  testthat::expect_equal(jstruct$nbCols, 784)
  testthat::expect_equal(jstruct$nbRows, 605)
  testthat::expect_equal(nrow(jstruct$classes), 1)
  testthat::expect_equal(jstruct$classes[1, ]$NP, 2962)
})