# test_that("GetFromTreeBase_solution",{
# expect_is(GetFromTreeBase_solution(), "phylo")
# })
test_that("GetTreeFromOpenTree_solution",{
opentree.result <- GetTreeFromOpenTree_solution()
expect_is(opentree.result[[1]], "phylo")
expect_is(opentree.result[[2]], "phylo")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.