fix: ignore duplicate_barcode variable

Signed-off-by: German Beldorati Stark <[email protected]>
biomage-org · Nov 17, 2023 · 587b026 · 587b026
1 parent 8ce0136
commit 587b026
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
@@ -329,7 +329,7 @@ find_clm_columns <- function(check_vals) {
 
 find_group_columns_cl_metadata <- function(cl_metadata) {
 
-  ndistinct_sample <- get_n_distinct_per_sample(cl_metadata)
+  ndistinct_sample <- get_n_distinct_per_sample(cl_metadata[,-"duplicate_barcode"])
   one_per_sample <- apply(ndistinct_sample, 2, function(x) all(x == 1))
   group_cols <- names(ndistinct_sample)[one_per_sample]