fix duplicate barcode cellset duplication

Signed-off-by: German Beldorati Stark <[email protected]>
biomage-org · Nov 17, 2023 · 4429aba · 4429aba
1 parent 587b026
commit 4429aba
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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))
 }