Mercurial > repos > iuc > crosscontamination_barcode_filter

diff scripts/config_assertions.R @ 2:e20001675838 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/crosscontamination_barcode_filter commit 82a0fd493f5866b3ef65019709ae5c865998f802
author iuc
date Wed, 12 Jun 2019 04:57:52 -0400
parents 78341ccbad0a
children
line wrap: on
line diff
--- a/scripts/config_assertions.R	Mon Jun 03 14:54:55 2019 -0400
+++ b/scripts/config_assertions.R	Wed Jun 12 04:57:52 2019 -0400
@@ -51,10 +51,10 @@
     #' i.e. Batch names are NOT reused across plates
     #'
     #' @param headers matrix headers in P1_B2_ACTG format
-    plate.and.batch <- unique(sort(sub("^(.*)_([ATCGN]+)$", "\\1", headers)))
+    plate.and.batch <- unique(sub("^(.*)_([ATCGN]+)$", "\\1", headers))
     message("Discovered ", length(plate.and.batch), " batches: ", paste(plate.and.batch, collapse=" "))
 
-    batch.only <- sub("^.*_(B\\d)$", "\\1", plate.and.batch)
+    batch.only <- sub("^.*_(B\\d+)$", "\\1", plate.and.batch)
     dupes.batches <- batch.only[duplicated(batch.only)]
 
     if (length(dupes.batches) > 0){