qs.files <- dir_ls(dir.input, recurse = T, regexp = glob2rx("*v1.2.qs")) qs.mir <- as.vector(grep("ossl_mir_", qs.files, value = T)) qs.visnir <- as.vector(grep("ossl ...