tests/testthat/test-clean.R

context("cleaning invalid objects")

test_that("veg_diversity is working", {
  veg <- Kenya_veg
  veg@header <- veg@header[1:10, ]
  expect_equal(validObject(clean(veg)), TRUE)
})
kamapu/vegtable documentation built on Feb. 17, 2024, 8:25 a.m.