test_that("prepare_tree works", {
species <- c("human","chimp","mouse")
tr <- orthogene::prepare_tree(species = species)
testthat::expect_true(methods::is(tr,"phylo"))
testthat::expect_length(tr$node.label,2)
testthat::expect_length(tr$tip.label,3)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.