R/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")
	}
}
Przemol/rbeads documentation built on May 8, 2019, 3:46 a.m.