[Robast-commits] r399 - in branches/robast-0.8/pkg: RobAStBase/R RobLoxBioC/R

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

Author: ruckdeschel
Date: 2010-04-29 16:56:33 +0200 (Thu, 29 Apr 2010)
New Revision: 399

Modified:
   branches/robast-0.8/pkg/RobAStBase/R/AllPlot.R
   branches/robast-0.8/pkg/RobAStBase/R/comparePlot.R
   branches/robast-0.8/pkg/RobAStBase/R/infoPlot.R
   branches/robast-0.8/pkg/RobLoxBioC/R/AffySimStudyFunction.R
   branches/robast-0.8/pkg/RobLoxBioC/R/IlluminaSimStudyFunction.R
Log:
for restoring old par() values, not all attributes may be set; hence deleted them from
stored value in plot functions by something like
            opar$cin <- opar$cra <- opar$csi <- opar$cxy <-  opar$din <- NULL


Modified: branches/robast-0.8/pkg/RobAStBase/R/AllPlot.R
===================================================================
--- branches/robast-0.8/pkg/RobAStBase/R/AllPlot.R	2010-04-01 13:29:53 UTC (rev 398)
+++ branches/robast-0.8/pkg/RobAStBase/R/AllPlot.R	2010-04-29 14:56:33 UTC (rev 399)
@@ -174,6 +174,7 @@
         options(warn = -1)
         on.exit(options(warn = w0))
         opar <- par()
+        opar$cin <- opar$cra <- opar$csi <- opar$cxy <-  opar$din <- NULL
         on.exit(par(opar))
         if (!withSweave)
              devNew()

Modified: branches/robast-0.8/pkg/RobAStBase/R/comparePlot.R
===================================================================
--- branches/robast-0.8/pkg/RobAStBase/R/comparePlot.R	2010-04-01 13:29:53 UTC (rev 398)
+++ branches/robast-0.8/pkg/RobAStBase/R/comparePlot.R	2010-04-29 14:56:33 UTC (rev 399)
@@ -226,6 +226,7 @@
         options(warn = -1)
         on.exit(options(warn = w0))
         opar <- par()
+        opar$cin <- opar$cra <- opar$csi <- opar$cxy <-  opar$din <- NULL
         on.exit(par(opar))
         
         if(mfColRow)

Modified: branches/robast-0.8/pkg/RobAStBase/R/infoPlot.R
===================================================================
--- branches/robast-0.8/pkg/RobAStBase/R/infoPlot.R	2010-04-01 13:29:53 UTC (rev 398)
+++ branches/robast-0.8/pkg/RobAStBase/R/infoPlot.R	2010-04-29 14:56:33 UTC (rev 399)
@@ -233,6 +233,7 @@
             options(warn = -1)
             on.exit(options(warn = w0))
             opar <- par()
+            opar$cin <- opar$cra <- opar$csi <- opar$cxy <-  opar$din <- NULL
             on.exit(par(opar))
 #            if (!withSweave)
 #               devNew()

Modified: branches/robast-0.8/pkg/RobLoxBioC/R/AffySimStudyFunction.R
===================================================================
--- branches/robast-0.8/pkg/RobLoxBioC/R/AffySimStudyFunction.R	2010-04-01 13:29:53 UTC (rev 398)
+++ branches/robast-0.8/pkg/RobLoxBioC/R/AffySimStudyFunction.R	2010-04-29 14:56:33 UTC (rev 399)
@@ -76,6 +76,7 @@
         plot(c(0,1), c(1, 0), type = "n", axes = FALSE)
         legend("center", c("ML", "Med/MAD", "biweight", "rmx"),
                fill = myCol, ncol = 4, cex = 1.5)
+        op$cin <- op$cra <- op$csi <- op$cxy <-  op$din <- NULL
         on.exit(par(op))
     }
 

Modified: branches/robast-0.8/pkg/RobLoxBioC/R/IlluminaSimStudyFunction.R
===================================================================
--- branches/robast-0.8/pkg/RobLoxBioC/R/IlluminaSimStudyFunction.R	2010-04-01 13:29:53 UTC (rev 398)
+++ branches/robast-0.8/pkg/RobLoxBioC/R/IlluminaSimStudyFunction.R	2010-04-29 14:56:33 UTC (rev 399)
@@ -83,6 +83,7 @@
         plot(c(0,1), c(1, 0), type = "n", axes = FALSE)
         legend("center", c("ML", "Med/MAD", "Illumina", "rmx"),
                fill = myCol, ncol = 4, cex = 1.5)
+        op$cin <- op$cra <- op$csi <- op$cxy <-  op$din <- NULL
         on.exit(par(op))
     }