inst/ShinyPlatform_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/ShinyPlatform documentation built on Dec. 30, 2020, 9:47 p.m.