change colormap when proportion

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: analysePeaks
 Title: Compare, annotate your peaks
-Version: 1.0.2
+Version: 1.0.3
 Authors@R: 
     person(given = "Lucille",
            family = "Lopez-Delisle",

NAMESPACE

@@ -18,6 +18,8 @@ importFrom(GenomicRanges,findOverlaps)
 importFrom(GenomicRanges,flank)
 importFrom(GenomicRanges,mcols)
 importFrom(GenomicRanges,start)
+importFrom(RColorBrewer,brewer.pal)
+importFrom(grDevices,colorRampPalette)
 importFrom(grDevices,rainbow)
 importFrom(grDevices,rgb)
 importFrom(graphics,barplot)

R/plottingFunctions.R

@@ -511,6 +511,8 @@ plotAllBarPlotForCategoriesFromMyGR <- function(myGRs, nameOfColWithCate,
 #' @param plotProportion logical whether to display the pheatmap 1, 2, and 4 should be plot as proportion of pheatmap 3 and 5 (default is FALSE)
 #' @return Plot but do not return anything
 #' @importFrom pheatmap pheatmap
+#' @importFrom RColorBrewer brewer.pal
+#' @importFrom grDevices colorRampPalette
 #' @export
 plotAllPheatmapsFor2CategoriesFromMyGR <- function(myGRs, nameOfColWithCate1,
                                                    cateNames1, what1,
@@ -609,17 +611,23 @@ plotAllPheatmapsFor2CategoriesFromMyGR <- function(myGRs, nameOfColWithCate1,
       t1 <- t1 / t2
       t1[is.nan(t1)] <- 0
       number_format <- "%.2f"
+      breaks <- seq(0, 1, length.out = 101)
+      colors.name <- "PiYG"
     } else {
       line2 <- paste0(sum(t1), " peaks")
       number_format <- "%d"
+      breaks <- NA
+      colors.name <- "RdYlBu"
     }
     # We plot it
     pheatmap::pheatmap(t1, cluster_rows = F, cluster_cols = F,
                        main = paste0(inputsGRWhat[[i]], "\n", line2, "\n", what1, " vs ", what2,
                                      "\nset:", stringSet, "\nref:", nameOfRef),
                        display_numbers = T,
                        number_format = number_format,
-                       fontsize = fontsize)
+                       fontsize = fontsize,
+                       breaks = breaks,
+                       color = colorRampPalette(rev(brewer.pal(n = 7, name = color.name)))(100))
   }
 }