index.html
<!doctype HTML>
<meta charset = 'utf-8'>
<html>
<head>
<script src='//www.jsphylosvg.com/js/raphael/raphael-min.js' type='text/javascript'></script>
<script src='//www.jsphylosvg.com/js/jsphylosvg-min.js' type='text/javascript'></script>
<style>
.rChart {
display: block;
margin-left: auto;
margin-right: auto;
width: 500px;
height: 500px;
}
</style>
</head>
<body>
<div id='chart109d434aaf504' class='rChart jsphylo'></div>
<script type="text/javascript">
var chartParams = {
"dom": "chart109d434aaf504",
"width": 500,
"height": 500,
"dataObject": {
"newick": "(((Gastonia_rodriguesiana,Gastonia_mauritiana),Gastonia_spectabilis),((Reynoldsia_pleiosperma,Reynoldsia_lanutoensis,(Reynoldsia_verrucosa,Reynoldsia_marchionensis)),((Munroidendron_racemosum,Reynoldsia_sandwicensis),(Tetraplasandra_hawaiensis,((Tetraplasandra_flynnii,(Tetraplasandra_gymnocarpa,Tetraplasandra_kavaiensis)),(Tetraplasandra_oahuensis,(Tetraplasandra_waialealae,Tetraplasandra_waimeae)))))));"
},
"id": "chart109d434aaf504"
}
window.onload = function(){
var dataObject = chartParams.dataObject;
phylocanvas = new Smits.PhyloCanvas(
dataObject,
'chart109d434aaf504',
chartParams.width,
chartParams.height
);
};
</script>
</body>
</html>
code.R
require(rCharts)
require(rChartsExtra)
p1 <- rCharts$new()
p1$field('lib', 'jsphylo')
p1$field('LIB', get_lib(system.file('libraries', 'jsphylo', package = 'rChartsExtra')))
p1$set(dataObject = list(newick = write.tree(tree2)))