#
# --- Test badnex.R ---
#
test_that("Malformed Nexus File should not work.", {
if (Sys.getenv("RCMDCHECK") == FALSE) {
pth <- file.path(getwd(), "..", "inst", "nexusfiles")
} else {
pth <- system.file(package="rncl", "nexusfiles")
}
badFile <- file.path(pth, "badnex.nex")
stopifnot(file.exists(badFile))
expect_error(read_nexus_phylo(file=badFile))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.