for CITE-seq, switch to use proper assay key when plotting

Author: bbimber

singlecell/resources/chunks/CiteSeqPlots.R

@@ -7,7 +7,7 @@ for (datasetId in names(seuratObjects)) {
     } else {
         for (feat in rownames(seuratObj[[assayName]])) {
             tryCatch({
-                CellMembrane::FeaturePlotAcrossReductions(seuratObj, features = paste0(tolower(assayName), '_', feat))
+                CellMembrane::FeaturePlotAcrossReductions(seuratObj, features = paste0(seuratObj@assays[[assayName]]@key, feat))
             }, error = function(e){
                 warning(conditionMessage(e))
                 traceback()