Update draw-phylogenetic-tree.Rsw