[Seqinr-commits] r1762 - pkg/R

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

Author: simonpenel
Date: 2011-10-12 11:15:53 +0200 (Wed, 12 Oct 2011)
New Revision: 1762

Modified:
   pkg/R/db.growth.R
Log:
Changing the grep to "Release(.+)Month" in db.growth function. Thanks to John Davey for detecting this bug.


Modified: pkg/R/db.growth.R
===================================================================
--- pkg/R/db.growth.R	2011-09-20 12:59:55 UTC (rev 1761)
+++ pkg/R/db.growth.R	2011-10-12 09:15:53 UTC (rev 1762)
@@ -10,7 +10,7 @@
 
   embl <- where
   tmp <- readLines( embl )
-  idx <- grep("Release Month", tmp)
+  idx <- grep("Release(.+) Month", tmp)
   tmp <- tmp[ (idx + 2):length(tmp) ]
   tmp <- strsplit( tmp, split = " " )
   not.empty <- function(x)