[adegenet-commits] r442 - pkg/R

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

Author: jombart
Date: 2009-09-14 13:15:16 +0200 (Mon, 14 Sep 2009)
New Revision: 442

Modified:
   pkg/R/seqTrack.R
Log:
dont remember these changes, but I think its in plotSeqTrack and handling of color


Modified: pkg/R/seqTrack.R
===================================================================
--- pkg/R/seqTrack.R	2009-09-07 23:53:24 UTC (rev 441)
+++ pkg/R/seqTrack.R	2009-09-14 11:15:16 UTC (rev 442)
@@ -330,7 +330,7 @@
     }
 
     ## HANDLE COLOR PALETTE
-    if(!is.null(col) | !is.null(support)){ # use palette iff col or support provided
+    if(is.null(col) & !is.null(support)){ # use palette iff support provided without col
         opal <- palette()
         on.exit(palette(opal))
         palette(col.pal(100))