[Phylobase-commits] r646 - pkg/R

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

Author: pdc
Date: 2009-09-12 20:52:03 +0200 (Sat, 12 Sep 2009)
New Revision: 646

Modified:
   pkg/R/treePlot.R
Log:
whoops switched to a variable without ensuring that it was previously set by accessor

Modified: pkg/R/treePlot.R
===================================================================
--- pkg/R/treePlot.R	2009-09-12 18:37:50 UTC (rev 645)
+++ pkg/R/treePlot.R	2009-09-12 18:52:03 UTC (rev 646)
@@ -517,8 +517,9 @@
                      edge.width = 1, # TODO line-type modification hack
                      ...)    
 {
-    phy <- xxyy$phy
-    Ntips <- nTips(phy)
+    phy    <- xxyy$phy
+    pedges <- edges(phy)
+    Ntips  <- nTips(phy)
     datalayout <- grid.layout(ncol = 2, width = unit(c(1, 1/Ntips), c('null', 'null')))
     # TODO this is done multiple times, 
     pushViewport(viewport(layout = datalayout, angle = rot,