Bugfix loading raw count data

bbimber · bbimber · commit 2a3df02af378 · 2021-02-07T08:32:39.000-08:00
diff --git a/singlecell/resources/chunks/PrepareRawCounts.R b/singlecell/resources/chunks/PrepareRawCounts.R
@@ -1,9 +1,8 @@
 for (datasetId in names(seuratObjects)) {
-    seuratObj <- seuratObjects[[datasetId]]
-    seuratObjects[[datasetId]] <- NULL
+    rawCountDir <- seuratObjects[[datasetId]]
 
     datasetName <- datasetIdToName[[datasetId]]
-    seuratObj <- CellMembrane::ReadAndFilter10xData(dataDir = seuratObjects[[datasetId]], datasetId = datasetId, datasetName = datasetName)
+    seuratObj <- CellMembrane::ReadAndFilter10xData(dataDir = rawCountDir, datasetId = datasetId, datasetName = datasetName)
 
     newSeuratObjects[[datasetId]] <- seuratObj
 
