The R Project SVN – R – Diff – /trunk/src/library/base/man/grep.Rd

+}
 \examples{
 grep("[a-z]", letters)
 txt <- c("arm","foot","lefroo", "bafoobar")
-if(length(i <- grep("foo",txt)))
+if(length(i <- grep("foo", txt)))
-   cat("'foo' appears at least once in\n\t",txt,"\n")
+   cat("'foo' appears at least once in\n\t", txt, "\n")
 i # 2 and 4
 txt[i]
 ## Double all 'a' or 'b's;  "\\" must be escaped, i.e., 'doubled'
 gsub("([ab])", "\\\\1_\\\\1_", "abc and ABC")
   aa[iw]
+}
 findArgs("package:base", "warn")
 ## trim trailing white space
-str <- 'Now is the time      '
+str <- "Now is the time      "
-sub(' +$', '', str)  ## spaces only
+sub(" +$", "", str)  ## spaces only
-sub('[[:space:]]+$', '', str) ## white space, POSIX-style
+sub("[[:space:]]+$", "", str) ## white space, POSIX-style
-sub('\\\\s+$', '', str, perl = TRUE) ## Perl-style white space
+sub("\\\\s+$", "", str, perl = TRUE) ## Perl-style white space
 ## capitalizing
 txt <- "a test of capitalizing"
 gsub("(\\\\w)(\\\\w*)", "\\\\U\\\\1\\\\L\\\\2", txt, perl=TRUE)
 gsub("\\\\b(\\\\w)",    "\\\\U\\\\1",       txt, perl=TRUE)

The R Project SVN R