Report missing barcode/cDNA_IDs

bimberlabinternal · Oct 20, 2024 · 85ff116 · 85ff116
1 parent 518351f
commit 85ff116
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/Utils.R b/R/Utils.R
@@ -326,7 +326,8 @@ ClrNormalizeByGroup <- function(seuratObj, groupingVar, assayName = 'ADT', targe
   if (!is.null(minCellsPerGroup) && !is.na(minCellsPerGroup)) {
     groupValues <- as.character(seuratObj[[groupingVar, drop = TRUE]])
     if (any(is.na(groupValues))) {
-      stop(paste0('There were NAs for the column: ', groupingVar))
+      missing <- unique(seuratObj$BarcodePrefix[[is.na(seuratObj[[groupingVar]])]])
+      stop(paste0('There were NAs for the column: ', groupingVar, '. BarcodePrefix values were: ', paste0(missing, collapse = ',')))
     }
 
     totals <- table(groupValues)