library(ape)
test_that("Test echo_subtree(tree, mrca_df)", {
tree <- read.nexus("testdata/simple.tre")
mrca_df <- read.csv("testdata/mrca_df.tsv", sep = "\t")
mrca_list <- c("Ursus_arctos", "Ursus_spelaeus", "Ursus_americanus")
tree1 <- text_placr(tree, mrca_df)
q_final <- echo_subtree(tree1, mrca_list, "Ursus_abstrusus")
expect_equal(nchar(as.character(q_final)) -nchar( gsub(",", "", q_final)), 6)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.