data.dir <- paste0(Sys.getenv('outputDir'),"/")