Fix field name

Author: bbimber

singlecell/resources/chunks/RunCellHashing.R

@@ -12,7 +12,7 @@ for (datasetId in names(seuratObjects)) {
     } else {
         # Add empty columns to keep objects consistent
         seuratObj$HTO <- c('NotUsed')
-        seuratObj$consensuscall.global <- c('NotUsed')
+        seuratObj$HTO.Classification <- c('NotUsed')
     }
 
     newSeuratObjects[[datasetId]] <- seuratObj

singlecell/resources/chunks/SubsetSeurat.R

@@ -2,6 +2,12 @@ for (datasetId in names(seuratObjects)) {
     seuratObj <- seuratObjects[[datasetId]]
     seuratObjects[[datasetId]] <- NULL
 
+    #TODO: remove
+    if (!'HTO.Classification' %in% names(seuratObj@meta.data) && 'consensuscall.global' %in% names(seuratObj@meta.data)) {
+        seuratObj$HTO.Classification <- seuratObj$consensuscall.global
+    }
+
+
     <SUBSETS>
 
     newSeuratObjects[[datasetId]] <- seuratObj