[R-gregmisc-commits] r2085 - pkg/gplots/R

[noreply at r-forge.r-project.org]

Author: warnes
Date: 2016-03-24 14:30:02 +0100 (Thu, 24 Mar 2016)
New Revision: 2085

Modified:
   pkg/gplots/R/heatmap.2.R
Log:
Add layout infromation to object returned from heatmap.2() (patch provided by Jenny Drnevich).

Modified: pkg/gplots/R/heatmap.2.R
===================================================================
--- pkg/gplots/R/heatmap.2.R	2016-03-24 13:28:41 UTC (rev 2084)
+++ pkg/gplots/R/heatmap.2.R	2016-03-24 13:30:02 UTC (rev 2085)
@@ -457,10 +457,10 @@
         {
           if(missing(adjCol) || is.null(adjCol))
             adjCol=c(1,NA)
-          
+
           if(is.null(srtCol))
             srtCol <- 90
-          
+
           xpd.orig <- par("xpd")
           par(xpd=NA)
           xpos <- axis(1, 1:nc, labels=rep("", nc), las=2, tick=0)
@@ -770,6 +770,13 @@
                              color=retval$col
                              )
 
+  # Store layout information, suggested by Jenny Drnevich
+  retval$layout <- list(lmat = lmat,
+                        lhei = lhei,
+                        lwid = lwid
+                        )
+
+
   ## If user has provided an extra function, call it.
   if(!is.null(extrafun))
       extrafun()