[Phylobase-commits] r618 - pkg/R

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

Author: regetz
Date: 2009-09-03 23:12:45 +0200 (Thu, 03 Sep 2009)
New Revision: 618

Modified:
   pkg/R/treePlot.R
Log:
updated treePlot to reflect recent change to edgeLength accessor method


Modified: pkg/R/treePlot.R
===================================================================
--- pkg/R/treePlot.R	2009-09-03 20:35:33 UTC (rev 617)
+++ pkg/R/treePlot.R	2009-09-03 21:12:45 UTC (rev 618)
@@ -44,8 +44,8 @@
     }
     
     ## TODO remove the false cladogram option?
-    if(is.null(edgeLength(phy)) || type == 'cladogram') {
-        phy at edge.length <- rep(1, Nedges)
+    if(!hasEdgeLength(phy) || type == 'cladogram') {
+        edgeLength(phy) <- rep(1, Nedges)
     }
     xxyy   <- phyloXXYY(phy, tip.order)
     phy    <- xxyy$phy