[Phylobase-commits] r122 - pkg/R

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

Author: jombart
Date: 2008-02-26 16:03:13 +0100 (Tue, 26 Feb 2008)
New Revision: 122

Modified:
   pkg/R/plot.R
Log:
Plot phylo4d actually takes show.tip.label into account.


Modified: pkg/R/plot.R
===================================================================
--- pkg/R/plot.R	2008-02-25 15:38:36 UTC (rev 121)
+++ pkg/R/plot.R	2008-02-26 15:03:13 UTC (rev 122)
@@ -171,10 +171,11 @@
                             adj=1, srt=90, cex=cex.label)
 
     #### plot tip labels
-    x.base <- xrange.data[2] + x.inset
-    text(x=rep(x.base,plotres$Ntip), y=1:plotres$Ntip, lab=tip.label, font=font, cex=cex.label, pos=4)
+    if(show.tip.label){
+        x.base <- xrange.data[2] + x.inset
+        text(x=rep(x.base,plotres$Ntip), y=1:plotres$Ntip, lab=tip.label, font=font, cex=cex.label, pos=4)
+    }
 
-
     #### add a legend for symbols
     if(legend){
         leg.var <- alldat[[1]][,3]