[Seqinr-commits] r1673 - pkg/R

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

Author: lobry
Date: 2009-11-04 18:02:48 +0100 (Wed, 04 Nov 2009)
New Revision: 1673

Modified:
   pkg/R/words.pos.R
Log:
extended deleted

Modified: pkg/R/words.pos.R
===================================================================
--- pkg/R/words.pos.R	2009-11-04 17:01:14 UTC (rev 1672)
+++ pkg/R/words.pos.R	2009-11-04 17:02:48 UTC (rev 1673)
@@ -1,13 +1,13 @@
-words.pos <- function(pattern, text, ignore.case = FALSE, extended = TRUE,
+words.pos <- function(pattern, text, ignore.case = FALSE,
                       perl = TRUE, fixed = FALSE, useBytes = TRUE, ...)
 {
-  position <- regexpr(pattern, text, ignore.case, extended, perl, fixed, useBytes, ...)[1]
+  position <- regexpr(pattern, text, ignore.case, perl, fixed, useBytes, ...)[1]
   result <- numeric(0)
   while(position != -1 )
   {
     result <- c(result, position )
     text <- substr(text, position + 1, nchar(text))
-    position <- regexpr(pattern, text, ignore.case, extended, perl, fixed, useBytes, ...)[1]
+    position <- regexpr(pattern, text, ignore.case, perl, fixed, useBytes, ...)[1]
   }
   return(cumsum(result))
 }