#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.