context("get_taxa_names")
test_that("use", {
created <- get_taxa_names(get_beautier_path("anthus_aco_sub.fas"))
expected <- c(
"61430_aco", "626029_aco", "630116_aco", "630210_aco", "B25702_aco"
)
expect_equal(created, expected)
})
test_that("abuse", {
expect_error(
get_taxa_names("abs.ent"),
"File 'filename' not found. Could not find file with path 'abs.ent'"
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.