Merge pull request #48 from BushmanLab/ignorePrimerIDMd5

ignore primerIDData md5's, they are not used in the pipeline at the m…
BushmanLab · Aug 6, 2015 · b4eb6ad · b4eb6ad
2 parents c422e84 + ae6028e
commit b4eb6ad
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/check_rdata_md5.R b/check_rdata_md5.R
@@ -34,7 +34,9 @@ md5.old <- read.table(old.digest, header=TRUE)
 
 md5.all <- merge(md5.old, md5.new, by="RData", all.x=TRUE, all.y=TRUE)
 colnames(md5.all) <- c("RData", "digest.old", "digest.new")
-md5.all <- subset(md5.all, ! RData %in% c("codeDir.RData", "completeMetadata.RData"))
+md5.all <- subset(md5.all, !grepl("codeDir.RData|completeMetadata.RData|primerIDData.RData",
+                                 RData,
+                                 ignore.case=TRUE) )
 
 md5.all$same <- with(md5.all, digest.old==digest.new)