tests/testthat/test-classify_habitats.R

In shar: Species-Habitat Associations

# testthat::context("test-classify_habitats")

landscape_classified <- classify_habitats(raster = terra::rast(landscape), n = 5, style = "fisher")

landscape_classified_brks <- classify_habitats(raster = terra::rast(landscape),
                                               fixedBreaks = c(0, 0.25, 0.75, 1.0),
                                               style = "fixed", return_breaks = TRUE)

################################################################################

testthat::test_that("classify_habitats returns n classes", {

  present_classes <- length(unique(terra::values(landscape_classified)))

  testthat::expect_equal(present_classes, expected = 5)
})

testthat::test_that("classify_habitats useses breaks and returns them", {

  testthat::expect_type(object = landscape_classified_brks, type = "list")

  testthat::expect_equal(object = landscape_classified_brks$breaks$brks,
                         expected = c(0, 0.25, 0.75, 1.0))

  present_classes <- length(unique(terra::values(landscape_classified_brks$raster)))

  testthat::expect_equal(present_classes, expected = 3)
})