read__directory <- function(dir, mask, stringsAsFactors=F, keepMeta=F) {
  require(plyr)
  require(dplyr)
  files <- list.files(dir, pattern=glob2rx(mask), ignore.case=T)
  toExec <- "as_data_frame(mdply(files, read.csv, stringsAsFactors=stringsAsFactors))"
  if(!keepMeta) {
    toExec <- paste0(toExec, "[, -c(1, 2)]")
  }
  return(eval(parse(text=toExec)))
}