tests/testthat/test-getLastChildTaxon.R

test_that("getLastChildTaxon works", {
  expect_equal(as.numeric(prop.table(table(grepl("^Hap", getLastChildTaxon("suborder")$taxon)))), c(0.25,0.75))
})

Try the SoilTaxonomy package in your browser

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

SoilTaxonomy documentation built on Nov. 17, 2023, 1:07 a.m.