From dbf7ba82aafb575f0904759602d3990c20958aef Mon Sep 17 00:00:00 2001 From: Natalie Elphick Date: Mon, 16 Sep 2024 14:26:26 -0700 Subject: [PATCH] fix typo --- shiny_result/scripts/plots.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/shiny_result/scripts/plots.R b/shiny_result/scripts/plots.R index 744b933..569f8f9 100644 --- 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")