[Phylobase-commits] r519 - pkg/R

[noreply at r-forge.r-project.org]

Author: pdc
Date: 2009-08-20 00:12:08 +0200 (Thu, 20 Aug 2009)
New Revision: 519

Modified:
   pkg/R/treePlot.R
Log:
a bit over zealous on that last commit

Modified: pkg/R/treePlot.R
===================================================================
--- pkg/R/treePlot.R	2009-08-19 22:08:39 UTC (rev 518)
+++ pkg/R/treePlot.R	2009-08-19 22:12:08 UTC (rev 519)
@@ -192,7 +192,7 @@
         pushViewport(viewport(layout = treelayout, layout.pos.col = 1))
             rty <- mean(xxyy$yy[phy at edge[, 1] == Ntips + 1], name = 'nodelabelvp')
         labtext <- grid.text(
-            tipLabels(phy), 
+            nodeLabels(phy), 
             x = c(0, xxyy$xx[phy at edge[, 2] > Ntips][nindex]), 
             y = c(rty, xxyy$yy[phy at edge[, 2] > Ntips][nindex]), 
             default.units = 'npc', name = 'nodelabels', rot = -rot,