set_example_safe_dir()
beetle_graph <- get_taxon_graph(1400562)
beetle_phylo <- igraph_to_phylo(beetle_graph)
ape::plot.phylo(beetle_phylo, show.node.label = TRUE)
# Or wrapped into a single function
beetle_phylo <- get_phylogeny(1400562)
ape::plot.phylo(beetle_phylo, show.node.label = TRUE)
unset_example_safe_dir()
Run the code above in your browser using DataLab