if (FALSE) # This is a flag for package development. You are welcome to run the example.
taxa <- c(
"Homo sapiens", "Ursus arctos", "Pan paniscus", "Tyrannosaurus rex",
"Ginkgo biloba", "Vulcan", "Klingon"
)
results <- tree_from_taxonomy(taxa)
print(results$unresolved) # The taxa that do not match
ape::plot.phylo(results$phy) # may generate warnings due to problems with singletons
ape::plot.phylo(ape::collapse.singles(results$phy), show.node.label = TRUE)
# got rid of singles, but this also removes a lot of the node.labels
# end dontrun
Run the code above in your browser using DataLab