rootDir<-paste0(dirname(tempdir()), "/DupChecker")
datafile<-buildFileTable(rootDir=rootDir)
if(nrow(datafile) > 0){
result<-validateFile(datafile)
if(result$hasdup){
duptable<-result$duptable
write.csv(duptable, file="duptable.csv")
}
}
Run the code above in your browser using DataLab