Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (9 sloc) 310 Bytes
library(plyr, warn.conflicts = FALSE)
FILE <- (function() {
attr(body(sys.function()), "srcfile")
})()$filename
PATH <- dirname(FILE)
source.with.err <- function(path) {
tryCatch(source(path), error = function(x) {print(path); print(x)})
}
lapply(dir(file.path(PATH, "R"), full.name=T), source.with.err)
Jump to Line
Something went wrong with that request. Please try again.