R/zzz.R

In jokergoo/ComplexHeatmap: Make Complex Heatmaps

.onAttach = function(libname, pkgname) {
    version = packageDescription(pkgname, fields = "Version")

  	msg = paste0("========================================
", pkgname, " version ", version, "
Bioconductor page: http://bioconductor.org/packages/ComplexHeatmap/
Github page: https://github.com/jokergoo/ComplexHeatmap
Documentation: http://jokergoo.github.io/ComplexHeatmap-reference

If you use it in published research, please cite either one:
- Gu, Z. Complex Heatmap Visualization. iMeta 2022.
- Gu, Z. Complex heatmaps reveal patterns and correlations in multidimensional 
    genomic data. Bioinformatics 2016.


The new InteractiveComplexHeatmap package can directly export static 
complex heatmaps into an interactive Shiny app with zero effort. Have a try!

This message can be suppressed by:
  suppressPackageStartupMessages(library(ComplexHeatmap))
========================================
")	

  	if("package:pheatmap" %in% search()) {
  		msg = paste0(msg, 
"! pheatmap() has been masked by ComplexHeatmap::pheatmap(). Most of the arguments
   in the original pheatmap() are identically supported in the new function. You 
   can still use the original function by explicitly calling pheatmap::pheatmap().
")
  	}

    packageStartupMessage(msg)

}

rv = R.Version()

if(getRversion() >= "4.0.0" && as.numeric(rv$`svn rev`) >= 77889) {
    unitType = get("unitType", envir = asNamespace("grid"))
} else {
	unitType = function(x, recurse = TRUE) attr(x, "unit")
}



# from grid 4.0
# the problem is with grid < 4.0, after executing `grid.grabExpr()`,
# the current device changes. 
if(getRversion() < "4.0.0") {
  grid.grabExpr = function (expr, warn = 2, wrap = FALSE,  
      width = 7, height = 7, device = grid:::offscreen, ...) {
      cd <- dev.cur()
      device(width, height)
      grabd <- dev.cur()
      on.exit({
          dev.set(grabd)
          dev.off()
          dev.set(cd)
      })
      eval(expr)
      grid:::grabDL(warn, wrap, ...)
  }
}