test/sourceAll.R

   1 for (file in list.files("generate_test_data",full.names=TRUE,recursive=TRUE))
   2 {
   3     file_name_length = nchar(file)
   4     if (substr(file, file_name_length, file_name_length) == "R")
   5         source(file)
   6 }