hadley / profr
watch download tarball
public
Forks0Right
Watchers3Right
Description: An alternative profiling package for R
Homepage: http://had.co.nz/profr
Clone URL: git://github.com/hadley/profr.git
Click here to lend your support to: profr and make a donation at www.pledgie.com !
profr / load.r
100644 13 lines (10 sloc) 0.304 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13

# library(prof)
library(digest)
 
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)