[adegenet-commits] r443 - pkg/R

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

Author: jombart
Date: 2009-09-21 16:30:38 +0200 (Mon, 21 Sep 2009)
New Revision: 443

Modified:
   pkg/R/seqTrack.R
Log:
added meaningful error msg when plotting with a range with NA.


Modified: pkg/R/seqTrack.R
===================================================================
--- pkg/R/seqTrack.R	2009-09-14 11:15:16 UTC (rev 442)
+++ pkg/R/seqTrack.R	2009-09-21 14:30:38 UTC (rev 443)
@@ -424,6 +424,10 @@
             stop(msg)
         }
 
+        if(any(is.na(dateRange))){
+            stop("NA in dateRange")
+        }
+
         dates <- x$date
         toKeep <- (dates > min(dateRange)) & (dates < max(dateRange))
         if(sum(toKeep)==0) {