Nothing
context("Taxon / Hierarchy Convenience Methods")
test_that("taxon_to_level works", {
expect_equal(taxon_to_level(c("gelisols", NA, "foo", "typic folistels", "folistels")),
c("order", NA, NA, "subgroup", "greatgroup"))
})
test_that("taxon_to_level works (family-level taxa)", {
expect_equal(taxon_to_level(
c(
"Fine-loamy, mixed, active, thermic Ultic Haploxeralfs",
"Histosols",
NA,
"Thermic Typic Quartzipsamments"
)
), c('family', 'order', NA, 'family'))
})
test_that("level_to_taxon works", {
expect_equal(length(level_to_taxon(level = c("order","suborder"))), 80)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.