Nothing
test_that("Extract genus", {
taxa <-
c(
NA,
"Banksia integrifolia",
"Acacia longifolia",
"Commersonia rosea",
"Thelymitra pauciflora",
"Justicia procumbens",
"Hibbertia",
"Rostellularia long leaves",
"Hibbertia sericea var silliafolius",
"Hibbertia sp.",
"x Cynochloris macivorii",
"(Dockrillia pugioniformis x Dockrillia striolata) x Dockrillia pugioniformis"
)
expected <- c(NA, "Banksia", "Acacia", "Commersonia", "Thelymitra",
"Justicia", "Hibbertia", "Rostellularia", "Hibbertia",
"Hibbertia", "x Cynochloris", "Dockrillia")
out <- extract_genus(taxa)
expect_equal(out, expected)
})
test_that("Standardise names names", {
expected <-
readr::read_csv("benchmarks/standardise_names.csv", show_col_types = FALSE)
out <-
dplyr::tibble(taxon_names = expected$taxon_names,
standardised_names = standardise_names(taxon_names),
genus = extract_genus(standardised_names),
stripped_names = strip_names(standardised_names),
stripped_names_extra = strip_names_extra(stripped_names),
)
#out %>% readr::write_csv("benchmarks/standardise_names.csv")
for(v in names(out)){
expect_equal(out[[v]], expected[[v]], info=v)
}
})
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.