rootDir<-paste0(dirname(tempdir()), "/DupChecker")
datafile<-buildFileTable(rootDir=rootDir, filePattern="cel$")
#or
datafile<-buildFileTable(rootDir=c(paste0(rootDir,
c("/E-MEXP-3872", "/GSE1478") )), filePattern="cel$")
Run the code above in your browser using DataLab