setScience("BMAT", create=TRUE)

files.in <- extractIngestFiles(pattern="BMAT", ext="csv")

fread(files.in[[1]])