When I'm developing packages, sometimes I just want to find the files that contain a particular variable. This helps me search all of the files for the existence of a string pattern.

directorySearch

directorySearch <- function(dir, pattern, ...)
{
  files <- list.files(dir)
  
  suppressWarnings(
    Code <- lapply(file.path(dir, files),
                   readLines)
  )
  
  files[vapply(Code, 
               function(x, pattern, ...) any(grepl(pattern, x, ...)),
               logical(1),
               pattern = pattern,
               ...)]
}