#' 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
load.source.directory <- function(source.directory){
source.file.list <- list.files(source.directory,pattern="(\\.R$)|(\\.r$)",full.names=TRUE)
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.