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

planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/crosscontamination_barcode_filter commit 82a0fd493f5866b3ef65019709ae5c865998f802

1:78341ccbad0a

checkBatchNamesAreValid <- function(headers){
    #' Checks that Plate and Batch names follow good conventions
    #' 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)))
    message("Discovered ", length(plate.and.batch), " batches: ", paste(plate.and.batch, collapse=" "))

    batch.only <- sub("^.*_(B\\d)$", "\\1", plate.and.batch)
    dupes.batches <- batch.only[duplicated(batch.only)]

    if (length(dupes.batches) > 0){
        stop("Batches ", paste(dupes.batches, collapse=" "), " have duplicate names in other plates!")
    }

2:e20001675838

checkBatchNamesAreValid <- function(headers){
    #' Checks that Plate and Batch names follow good conventions
    #' i.e. Batch names are NOT reused across plates
    #'
    #' @param headers matrix headers in P1_B2_ACTG format
    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)
    dupes.batches <- batch.only[duplicated(batch.only)]

    if (length(dupes.batches) > 0){
        stop("Batches ", paste(dupes.batches, collapse=" "), " have duplicate names in other plates!")
    }