[Seqinr-commits] r1672 - pkg/R

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

Author: lobry
Date: 2009-11-04 18:01:14 +0100 (Wed, 04 Nov 2009)
New Revision: 1672

Modified:
   pkg/R/trimSpace.R
Log:
extended deleted

Modified: pkg/R/trimSpace.R
===================================================================
--- pkg/R/trimSpace.R	2009-10-16 15:48:10 UTC (rev 1671)
+++ pkg/R/trimSpace.R	2009-11-04 17:01:14 UTC (rev 1672)
@@ -1,11 +1,11 @@
 trimSpace <- function(x, leading = TRUE, trailing = TRUE, space = "[:space:]"){
   if(leading){
     pattern <- paste("^[", space, "]*", sep = "", collapse = "")
-    x <- sub(pattern = pattern, replacement =  "", x = x, extended = TRUE)
+    x <- sub(pattern = pattern, replacement =  "", x = x)
   }
   if(trailing){
     pattern <- paste("[", space, "]*$", sep = "", collapse = "")
-    x <- sub(pattern = pattern, replacement =  "", x = x, extended = TRUE)
+    x <- sub(pattern = pattern, replacement =  "", x = x)
   }
   return(x)
 }