Update

functions.R

@@ -395,7 +395,7 @@ plotCompressedUmapExpr <- function(dir_path, pdf_path, names_list, correctedAll,
   plot_list <- list()
   for (marker in names_list){
     if (marker %in% rownames(correctedAll)){
-      plot_list[[marker]] <- umapExpr(umapAll=umapAll, gene=marker, correctedAll=correctedAll, annot= annot, dataset= dataset, sampleAnnot=merged_cell_annotation, main=paste0(marker, " : "), pointSize = pointSize, colorScale)
+      plot_list[[marker]] <- umapExpr(umapAll=umapAll, gene=marker, correctedAll=correctedAll, annot= annot, dataset= dataset, sampleAnnot=merged_cell_annotation, main=paste0(marker, " : "), pointSize = pointSize, colorScale = colorScale)
       plot_list_compressed[[marker]] <- plot_list[[marker]] + theme_void() + theme(plot.title = element_text(size=10))
     } 
   }