[Phylobase-commits] r518 - pkg/R

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

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

Modified:
   pkg/R/treePlot.R
Log:
switch to tipLabel() accessor

Modified: pkg/R/treePlot.R
===================================================================
--- pkg/R/treePlot.R	2009-08-19 21:59:09 UTC (rev 517)
+++ pkg/R/treePlot.R	2009-08-19 22:08:39 UTC (rev 518)
@@ -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(
-            phy at node.label, 
+            tipLabels(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,
@@ -362,7 +362,7 @@
     
     ## get label widths
     if(lab.right) {
-        tiplabwidth  <- max(stringWidth(phy at tip.label))
+        tiplabwidth  <- max(stringWidth(tipLabels(phy)))
     } else {tiplabwidth <- unit(0, 'null', NULL)}
     datalabwidth <- max(stringWidth(colnames(tipdata)))