tests/testthat/test-prune_levels.R

context("Prune superfluous taxonomic ranks.")

test_that("Superfluous ranks get pruned.", {
  Cyperus <- subset(Easplist, TaxonName == "Cyperus", slot = "taxonNames")
  expect_true(length(levels(Cyperus)) >=
    length(levels(prune_levels(Cyperus))))
})
ropensci/taxlist documentation built on July 4, 2025, 8:23 p.m.