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

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

Author: warnes
Date: 2016-02-26 20:58:24 +0100 (Fri, 26 Feb 2016)
New Revision: 2078

Modified:
   pkg/gplots/R/heatmap.2.R
Log:
- heatmap.2() can now be used to plot subsets of a previous heatmap.
- Remove stray 'browser()' debuggint statement from heatmap.2() code.
- Decrease the granularity of the carpet in heatmap.2()'s color key to
  avoid visual artifacts.


Modified: pkg/gplots/R/heatmap.2.R
===================================================================
--- pkg/gplots/R/heatmap.2.R	2016-02-05 17:30:41 UTC (rev 2077)
+++ pkg/gplots/R/heatmap.2.R	2016-02-26 19:58:24 UTC (rev 2078)
@@ -225,6 +225,7 @@
         stop("row dendrogram ordering gave index of wrong length")
     } else {
       rowInd <- nr:1
+      ddr <- as.dendrogram(Rowv)
     }
 
   ## if( dendrogram %in% c("both","column") )
@@ -273,6 +274,7 @@
   else
     {
       colInd <- 1:nc
+      ddc <- as.dendrogram(Colv)
     }
 
   retval$rowInd <- rowInd
@@ -627,7 +629,6 @@
   if(!is.null(main)) title(main, cex.main = 1.5*op[["cex.main"]])
 
   ## Add the color-key
-  browser()
   if(key)
     {
       mar <- c(5, 4, 2, 1)
@@ -655,7 +656,7 @@
           max.raw <- max.breaks
         }
 
-      z <- seq(min.raw, max.raw, by=min(diff(breaks)/4))
+      z <- seq(min.raw, max.raw, by=min(diff(breaks)/100))
       image(z=matrix(z, ncol=1),
             col=col, breaks=tmpbreaks,
             xaxt="n", yaxt="n")