tests/testthat/test-lets_gridirizer.R

context("Test for lets.gridirizer")
data(PAM)

test_that("lets.gridirizer works fine", {
  
  
  resu_test <- lets.gridirizer(PAM)
  
  expect_equal(class(resu_test)[1], "list")
  expect_true(inherits(resu_test[[1]], "SpatVector"))
  expect_equal(class(resu_test[[2]])[1], "data.frame")
    
})
BrunoVilela/letsR documentation built on March 31, 2024, 11:25 p.m.