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

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

Author: warnes
Date: 2016-03-08 17:18:31 +0100 (Tue, 08 Mar 2016)
New Revision: 2081

Modified:
   pkg/gplots/R/heatmap.2.R
Log:
Set srtCol default if missing and colCol is set

Modified: pkg/gplots/R/heatmap.2.R
===================================================================
--- pkg/gplots/R/heatmap.2.R	2016-02-26 20:00:36 UTC (rev 2080)
+++ pkg/gplots/R/heatmap.2.R	2016-03-08 16:18:31 UTC (rev 2081)
@@ -457,7 +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)