Nothing
context("Utilities")
test_that("binomial names are correctly tested and split", {
expect_true(is_binomen("Venerupis corrugata"))
expect_false(is_binomen("venerupis corrugata"))
expect_false(is_binomen("Venerupis"))
expect_that(
is_binomen(c("Venerupis corrugata", "Urothoe poseidonis")),
is_identical_to(c(TRUE, TRUE))
)
expect_that(
is_binomen(c("Venerupis", "Urothoe poseidonis")),
is_identical_to(c(FALSE, TRUE))
)
expect_that(
is_binomen(c("Venerupis", "Urothoe")),
is_identical_to(c(FALSE, FALSE))
)
expect_true(
is_binomen("Venerupis sp."),
info = "genus known, species unsure"
)
expect_true(
is_binomen("Venerupis spp."),
info = "Species pluralis, multiple species"
)
expect_false(is_binomen("Venerupis xxx."))
expect_false(is_binomen("Venerupis sppp."))
expect_true(
is_binomen("Venerupis sp"),
info = "genus known, species unsure, period is missing"
)
expect_true(
is_binomen("Venerupis spp"),
info = "Species pluralis, multiple species, period is missing"
)
expect_false(is_binomen("Venerupis sppp."))
expect_that(
generic_name("Venerupis"),
is_identical_to(NA_character_)
)
expect_that(
generic_name("Venerupis corrugata"),
is_identical_to("Venerupis")
)
expect_that(
generic_name("venerupis corrugata"),
is_identical_to(NA_character_)
)
expect_that(
generic_name(c("Venerupis corrugata", "Urothoe poseidonis")),
is_identical_to(c("Venerupis", "Urothoe"))
)
expect_that(
generic_name(c("OLIGOCHAETA", "Pygospio elegans")),
is_identical_to(c(NA_character_, "Pygospio"))
)
expect_that(
specific_name("Venerupis"),
is_identical_to(NA_character_)
)
expect_that(
specific_name("Venerupis sp."),
is_identical_to(NA_character_)
)
expect_that(
specific_name("Venerupis spp."),
is_identical_to(NA_character_)
)
expect_that(
specific_name("Venerupis sp"),
is_identical_to(NA_character_)
)
expect_that(
specific_name("Venerupis spp"),
is_identical_to(NA_character_)
)
expect_that(
specific_name("Venerupis spx"),
is_identical_to("spx")
)
expect_that(
specific_name("Venerupis corrugata"),
is_identical_to("corrugata")
)
expect_that(
specific_name("venerupis corrugata"),
is_identical_to(NA_character_)
)
expect_that(
specific_name(c("Venerupis corrugata", "Urothoe poseidonis")),
is_identical_to(c("corrugata", "poseidonis"))
)
expect_that(
specific_name(c("OLIGOCHAETA", "Pygospio elegans")),
is_identical_to(c(NA_character_, "elegans"))
)
expect_that(
strip_sp("Venerupis sp"),
is_identical_to("Venerupis")
)
expect_that(
strip_sp("Venerupis sp."),
is_identical_to("Venerupis")
)
expect_that(
strip_sp("Venerupis spp."),
is_identical_to("Venerupis")
)
expect_that(
strip_sp("Venerupis spp.x"),
is_identical_to("Venerupis spp.x")
)
})
test_that("stripping spaces and harmonization", {
expect_that(
strip_spaces(c(" Hello World ", NA_character_)),
is_identical_to(c("Hello World", NA_character_))
)
expect_that(
harmonize(c("FOO", "Foo", "bar", "FOO", "bar", "FOO", "Bar")),
is_identical_to(c("FOO", "FOO", "bar", "FOO", "bar", "FOO", "bar"))
)
})
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.