R/load_source_directory.R

#' Runs all source files within the directory source.directory
#' @param source.directory is a directory with R source files to load
#' @return source file list
#' @details Looks for files with .R or .r suffixes. 
#' @export
#' @examples 
#'\dontrun{
#'  path <- getProjectPath("adaprHome")
#'  path <- file.path(path,"Programs",project.directory.tree$support)
#'  runSourceDirectory(path)
#'} 
runSourceDirectory <- function(source.directory){
  
  source.file.list <- list.files(source.directory,pattern="(\\.R$)|(\\.r$)",full.names=TRUE,include.dirs=FALSE)
  
  print(source.file.list)
  
  out <- lapply(source.file.list, source)
  
  return(out)
  
}

Try the adapr package in your browser

Any scripts or data that you put into this service are public.

adapr documentation built on May 1, 2019, 7:05 p.m.