wrkDir <- "/Users/ricardosaporta/git/misc/rscripts/learning R/!Testing Source Files/"

files <- c("test1.r", "test2.r", "test3.r")


      invisible(sapply(as.path(wrkDir, files), source, local=TRUE))