Fix pheatmap double-rendering by overriding print.pheatmap

pheatmap's print method omits grid.newpage(), causing the heatmap to
draw on top of the previous plot when mixed with ggplot in the same
knitr chunk or graphics device. Add a print.pheatmap S3 method in
prolfqua that calls grid.newpage() before grid.draw().

Author: wolski

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(print,pheatmap)
 export(.summarise_missing_contrasts)
 export(AnalysisConfiguration)
 export(Benchmark)

R/tidyMS_plotting.R

@@ -1,3 +1,18 @@
+#' Print method for pheatmap objects
+#'
+#' Fixes pheatmap's print method which omits \code{grid.newpage()},
+#' causing the heatmap to draw on top of the previous plot when
+#' multiple plots are produced in the same knitr chunk or graphics device.
+#'
+#' @param x a pheatmap object
+#' @param ... ignored
+#' @export
+#' @method print pheatmap
+print.pheatmap <- function(x, ...) {
+  grid::grid.newpage()
+  grid::grid.draw(x$gtable)
+}
+
 #' visualize intensity distributions
 #' @param pdata data.frame
 #' @param config AnalysisConfiguration