Merge pull request #34 from gladstone-institutes/fix_heatmap

fix typo
gladstone-institutes · Sep 16, 2024 · c971114 · c971114
2 parents d77eb2c + dbf7ba8
commit c971114
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/shiny_result/scripts/plots.R b/shiny_result/scripts/plots.R
@@ -115,7 +115,7 @@ shinyCnetplot <- function(resObject, geneList, input, output){
 # Heatmap #
 # - starts with top n results (ignoring p.value), identifies the top n genes by 
 # frequency within those results (secondary sort on fold.change) and then makes 
-# a tile plot with fold.change fill color using a balanced Brewer RdYBu palette.
+# a tile plot with fold.change fill color using a balanced Brewer RdYlBu palette.
 shinyHeatmap <- function(resObject, data, input, output){
 
   #filter inputs options panel
@@ -154,7 +154,7 @@ shinyHeatmap <- function(resObject, data, input, output){
   if('fold.change' %in% names(data)){
     max.scale <- max(abs(res$fold.change))
     p <- p + scale_fill_distiller(type = "div",
-                                  palette = "RdYBu",
+                                  palette = "RdYlBu",
                                   direction = -1, 
                                   limits = c(-max.scale, max.scale)) +
       theme(legend.position = "right")