inst/ShinyLims_app/R_Code/sourceDir.R

sourceDir <- function(path, trace = TRUE, ...) {
  for (nm in list.files(path, pattern = "\\.[RrSsQq]$")) {
    if(trace) cat(nm,":")           
    source(file.path(path, nm), ...)
    if(trace) cat("\n")
  }
}
ceparman/ShinyLIMS documentation built on May 20, 2020, 12:34 a.m.