context("Set global (uuid) identifiers")
test_that("We can generate valid EML with uuid ids on all elements", {
skip_on_cran()
skip_if_not_installed("geiger")
skip_if_not_installed("uuid")
if(require("uuid")){
options(uuid = TRUE)
require(geiger)
data(geospiza)
add_trees(geospiza$phy)
nexml <- add_characters(geospiza$dat)
write.nexml(nexml, file = "geospiza.xml")
expect_true_or_null(nexml_validate("geospiza.xml"))
unlink("geospiza.xml")
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.