[Robast-commits] r403 - branches/robast-0.8/pkg/RobAStBase/R

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

Author: ruckdeschel
Date: 2010-05-06 23:39:57 +0200 (Thu, 06 May 2010)
New Revision: 403

Modified:
   branches/robast-0.8/pkg/RobAStBase/R/infoPlot.R
Log:
fixed bug detected by Nataliya: you could not place single plots where you wanted...

Modified: branches/robast-0.8/pkg/RobAStBase/R/infoPlot.R
===================================================================
--- branches/robast-0.8/pkg/RobAStBase/R/infoPlot.R	2010-05-03 19:47:07 UTC (rev 402)
+++ branches/robast-0.8/pkg/RobAStBase/R/infoPlot.R	2010-05-06 21:39:57 UTC (rev 403)
@@ -388,13 +388,13 @@
                           line = lineT, cex.main = cex.inner, col.main = col.inner))
             }
             
-            if(dims0 > 1){
+            if(dims > 1){
                 dotsP["ylim"] <- NULL
                 dotsL["ylim"] <- NULL
                 dotsT["ylim"] <- NULL
                 nrows <- trunc(sqrt(dims))
                 ncols <- ceiling(dims/nrows)
-                if (!withSweave)
+                if (!withSweave||!mfColRow)
                      devNew()
                 if(mfColRow)
                    parArgs <- c(parArgs,list(mfrow = c(nrows, ncols)))