setOldClass ('phylo')
setAs(from="TreeMan", to="phylo", def=function(from, to) {
writeTree(from, file='temp.tre')
tree <- ape::read.tree(file='temp.tre')
file.remove('temp.tre')
return(tree)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.