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)
})

Try the vegtable package in your browser

Any scripts or data that you put into this service are public.

vegtable documentation built on March 31, 2023, 10:33 p.m.