Switch barcode prefix logic from CellMembrane to LK

Author: bbimber

singlecell/resources/chunks/AppendSaturation.R

@@ -6,7 +6,16 @@ for (datasetId in names(seuratObjects)) {
         stop(paste0('Unable to find molInfo file for: ', datasetId))
     }
 
-    seuratObj <- CellMembrane::AppendPerCellSaturation(seuratObj, molInfoFile = molInfoFile)
+    if (!'DatasetId' %in% names(seuratObj@meta.data)) {
+        stop('Seurat object lacks a DatasetId field!')
+    }
+
+    datasetId <- unique(seuratObj$DatasetId)
+    if (length(datasetId) != 1) {
+        stop('Saturation can only be computed from single-dataset seurat objects!')
+    }
+
+    seuratObj <- CellMembrane::AppendPerCellSaturation(seuratObj, molInfoFile = molInfoFile, cellbarcodePrefix = paste0(datasetId, '_'))
 
     newSeuratObjects[[datasetId]] <- seuratObj