tests/testthat/test-SDMmodel-class.R

In sgvignali/SDMtune: Species Distribution Model Selection

test_that("Show method for SDMmodel class produces the correct output", {
  m <- SDMtune:::bm_maxent
  expect_snapshot(m)
  m@data@data <- SDMtune:::t@data[, 1:3]
  expect_snapshot(m)
  m@data@data <- SDMtune:::t@data[, "biome", drop = FALSE]
  expect_snapshot(m)
  m <- SDMtune:::bm_maxnet
  expect_snapshot(m)
})