Update server.R

Author: martabica

fea/tab_SCORES/server.R

@@ -110,7 +110,7 @@ plot_gset_heatmap <- function(scores, ids, cluster, scale, selected_cols, groups
   if (scale == "none") {legend_name <- "log2(counts + 1)"
   } else {legend_name <- "Z-score"}
 
-  p <- ggheatmap::ggheatmap(data = mat,
+  ggheatmap::ggheatmap(data = mat,
                        color = colorRampPalette(c( "#0000ff","#fad541","#b60404"))(100),
                        cluster_rows = clust_rows,
                        cluster_cols = clust_cols,
@@ -120,23 +120,6 @@ plot_gset_heatmap <- function(scores, ids, cluster, scale, selected_cols, groups
                        annotation_cols = col_metaData,
                        annotation_color = col
   ) 
-  
-  g <- ggheatmap_theme(ggheatmap = p,
-                       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()),
-                         
-                         theme(
-                           legend.title = element_text(size = 18),
-                           legend.text = element_text(size= 18))
-                       )
-  )
-  g
-
 }
 
 plot_pathway <- function(selected_pathway, nrank, species){