R/searchScripts.R

In gelfondjal/adapr: Implementation of an Accountable Data Analysis Process

#' Searches R scripts and R markdown files within a project.
#' @param matcher string or regular expression to identify within R or R markdown files
#' @param project.id string for project id to search within.
#' @param ... arguments to grep
#' @details Uses grep. Counts lines with matches, but repeats within a line are not counted.
#' Searches 3 directories: Programs, support_functions, and Markdown
#' @return Data frame with file names and counts of lines with matches. 
#' @export
#' @examples 
#'\dontrun{
#' # Searches read_data.R within the adaprHome project
#' searchScripts("read","adaprHome")
#'
#'} 
#'

searchScripts <- function(matcher,project.id = getProject(),...){
  
  projects <- data.frame(project.id=unique(project.id))
  
  count.dat <- plyr::ddply(projects,"project.id",function(x){
    count.dat <- data.frame()
    try({
    
    path <- getProjectPath(x$project.id[1])
  
  
    files <- c(list.files(file.path(path,'Programs'),full.names = TRUE),
             list.files(file.path(path,'Programs','Markdown'),full.names = TRUE),
                        list.files(file.path(path,'Programs','support_functions'),full.names = TRUE))
  
    filesr <- grep('(\\.R$)|(\\.Rmd$)',files, value=TRUE)
  
    #scripts <- file.path(path,'Programs',filesr)
    scripts <- filesr
    top <- lapply(scripts,function(x){readLines(x)})
  
    names(top) <- basename(scripts)
  
    dirnamer <- basename(dirname(scripts))
  
    dirs <- data.frame(file=basename(scripts),directory=dirnamer)
  
    count.dat <-  plyr::ldply(lapply(top,function(y){return(sum(grepl(matcher,y)))}))
  
    count.dat <- subset(count.dat,count.dat$V1>0)
  
    names(count.dat) <- c("file","count")
  
    count.dat <- merge(dirs,count.dat)
  
    count.dat <- count.dat[order(-count.dat$count),]
  })
    return(count.dat)
    
  })

  return(count.dat)
}