Update server.R

Author: martabica

fea/tab_SCORES/server.R

@@ -51,7 +51,9 @@ get_score_pathways <- function(mat_name, mat, organism, database, pathways, name
 
 
 plot_gset_heatmap <- function(scores, ids, cluster, scale, selected_cols, groups){
-
+ 
+  print(sessionInfo())
+  
   df <- data.frame(cells = names(scores[[1]]))
   for (score in ids){
     #print(score)
@@ -120,15 +122,19 @@ plot_gset_heatmap <- function(scores, ids, cluster, scale, selected_cols, groups
   ) 
 
   g <- ggheatmap_theme(ggheatmap = p,
-                     plotlist = 1, 
+                     plotlist = c(1,2), 
                      theme =list(
 
     theme(axis.title.x=element_blank(),
           text = element_text(size=20),
           axis.text.x=element_blank(), 
-          axis.ticks.x=element_blank())
-    ) #close list
-  ) #close ggheatmap_theme 
+          axis.ticks.x=element_blank()),
+    
+    theme(
+          legend.title = element_text(size = 18),
+          legend.text = element_text(size= 18))
+    )
+  )
 g
 }