Remove unecessary parameter

functions.R

@@ -443,7 +443,7 @@ plotCompressedUmapAnnotations <- function(dir_path, pdf_path, annotations, color
   plot_list_compressed <- list()
   plot_list <- list()
   for (annotation in annotations){
-    plot_list[[annotation]] <- umapAllKit(coordinates, cell_annotation, annotation, annotations[[annotation]], color_scale, pointSize = pointSize)
+    plot_list[[annotation]] <- umapAllKit(coordinates, cell_annotation, annotation, color_scale, pointSize = pointSize)
     plot_list_compressed[[annotation]] <- plot_list[[annotation]] + theme(legend.position = "none") + theme_void()
   }