From 4429aba31b2f74c34e4a5200486c78385faa22e8 Mon Sep 17 00:00:00 2001 From: German Beldorati Stark Date: Fri, 17 Nov 2023 12:16:37 -0500 Subject: [PATCH] fix duplicate barcode cellset duplication Signed-off-by: German Beldorati Stark --- pipeline-runner/R/qc-7-embed_and_cluster.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pipeline-runner/R/qc-7-embed_and_cluster.R b/pipeline-runner/R/qc-7-embed_and_cluster.R index 8ce19b59..559d5817 100644 --- a/pipeline-runner/R/qc-7-embed_and_cluster.R +++ b/pipeline-runner/R/qc-7-embed_and_cluster.R @@ -364,7 +364,7 @@ detect_variable_types <- function(cl_metadata) { # remove samples var, useless from this point on clm_cols <- grep("^samples$", clm_cols, value = T, invert = T) - clm_cols <- c(clm_cols, "duplicate_barcode") + clm_cols <- union(clm_cols, "duplicate_barcode") return(list(CLM = clm_cols, CLMPerSample = clm_per_sample_cols)) }