[adegenet-commits] r1046 - pkg/R

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

Author: jombart
Date: 2012-11-05 17:21:48 +0100 (Mon, 05 Nov 2012)
New Revision: 1046

Modified:
   pkg/R/import.R
Log:
removing a warning in fasta2DNAbin

Modified: pkg/R/import.R
===================================================================
--- pkg/R/import.R	2012-11-05 10:20:23 UTC (rev 1045)
+++ pkg/R/import.R	2012-11-05 16:21:48 UTC (rev 1046)
@@ -1223,7 +1223,7 @@
 
     ## this is the nb of lines for one genome
     ## including the first line of annotation
-    LINES.PER.IND <- diff(grep("^>.+", txt))
+    LINES.PER.IND <- diff(grep("^>.+", txt))[1]
 
     ## this is the length of a genome single
     GENOMESIZE <- sum(nchar(txt[2:LINES.PER.IND]))