[Phylobase-commits] r142 - pkg/R

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

Author: jombart
Date: 2008-03-06 12:33:24 +0100 (Thu, 06 Mar 2008)
New Revision: 142

Modified:
   pkg/R/plot.R
Log:
Fixed a bug in plot with cex.label=0


Modified: pkg/R/plot.R
===================================================================
--- pkg/R/plot.R	2008-03-06 10:27:49 UTC (rev 141)
+++ pkg/R/plot.R	2008-03-06 11:33:24 UTC (rev 142)
@@ -36,7 +36,11 @@
         stop("bad phylo4d object: ",chk)
 
     if(!require(ape)) stop("the ape package is required")
-    ## if(ncol(tdata(x,which="tip")) == 0) stop("no data in this phylo4d object")
+    if(cex.label<0.1) {
+        show.tip.label <- FALSE
+        show.node.label <- FALSE
+        show.var.label <- FALSE
+    }
     
     cex <- par("cex")
     symbol <- match.arg(symbol)