Update

functions.R

@@ -237,7 +237,7 @@ umapAllKit <- function(umapAll, merged_cell_annotation, annot, colorScale = FALS
   return(plot)
 }
 
-umapExpr <- function(umapAll, gene, correctedAll, annot, dataset="Dataset", sampleAnnot, main, violin_plot = FALSE, pointSize = 3, , colorUmap = c("blue", "white", "red"), ...){
+umapExpr <- function(umapAll, gene, correctedAll, annot, dataset="Dataset", sampleAnnot, main, violin_plot = FALSE, pointSize = 3, colorUmap = c("blue", "white", "red"), ...){
   #' Plot UMAP with numeric variable 
   #' 
   #' @description WRAPPER