R/runfolder.R

In superchordate/bc: My personal R package with functions I plan to use often.

#' Run the files in a folder.
#'
#' Helpful for looping through scripts.
#'
#' @param path Path to your files.
#' @param recursive Recursively runs child folders. See ?list.files.
#' @param verbose Print informative messages via cat.
#' 
#' @export
#'
#' @examples
#' # TODO
runfolder = function( path, recursive = TRUE, verbose = TRUE ){
  
  for( i in list.files( path, full.names = TRUE, pattern = '[.][Rr]$', recursive = recursive ) ){
    
    if( verbose ) cat( '\t running [', gsub( '^.*/', '', i ), ']. \n')
    
    tryCatch({
      eval.parent( source( i ) )
    }, error = function(e){
      file.edit(i)
      stop( 'Error at file [', i,' ]: \n \t ', e, '' )
    }
    )
    
    rm(i)

  }
  
}