R/save_pheatmap_pdf.R

Defines functions save_pheatmap_pdf

# Function to save heatmaps
#' @export
save_pheatmap_pdf <- function(x, filename, width=7, height=7) {
  stopifnot(!missing(x))
  stopifnot(!missing(filename))
  pdf(filename, width=width, height=height)
  grid::grid.newpage()
  grid::grid.draw(x$gtable)
  dev.off()
}
kordastilab/ImmunoCluster documentation built on May 10, 2021, 7:41 a.m.