R/grepFn.R

In sos: Search Contributed R Packages, Sort by Package

grepFn <- function(pattern, x,  column='Function',
       ignore.case=FALSE, perl=FALSE,
       value=TRUE, fixed=FALSE, useBytes=FALSE, invert=FALSE) {
##
## 1.  grep
##
  g <- grep(pattern, x[, column], ignore.case=ignore.case,
            perl=perl, value=FALSE, fixed=fixed,
            useBytes=useBytes, invert=invert)
##
## 2.  value?
##
  {
    if(value)return(x[g, , drop=FALSE]) else return(g)
  }
}