[Distr-commits] r696 - branches/distr-2.4/pkg/distrSim/R pkg/distrSim/R

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

Author: ruckdeschel
Date: 2010-12-02 16:55:52 +0100 (Thu, 02 Dec 2010)
New Revision: 696

Modified:
   branches/distr-2.4/pkg/distrSim/R/plot-methods.R
   pkg/distrSim/R/plot-methods.R
Log:
argh: overlooked one assignment <- par()

Modified: branches/distr-2.4/pkg/distrSim/R/plot-methods.R
===================================================================
--- branches/distr-2.4/pkg/distrSim/R/plot-methods.R	2010-12-02 15:05:48 UTC (rev 695)
+++ branches/distr-2.4/pkg/distrSim/R/plot-methods.R	2010-12-02 15:55:52 UTC (rev 696)
@@ -185,7 +185,7 @@
       #      get(getOption("device"))()
             o.warn <- getOption("warn")
             on.exit(options("warn"=o.warn))
-            opar <- par()
+            opar <- par(no.readonly = TRUE)
             opar$cin <- opar$cra <- opar$csi <- opar$cxy <-  opar$din <- NULL
             on.exit(par(opar))
             

Modified: pkg/distrSim/R/plot-methods.R
===================================================================
--- pkg/distrSim/R/plot-methods.R	2010-12-02 15:05:48 UTC (rev 695)
+++ pkg/distrSim/R/plot-methods.R	2010-12-02 15:55:52 UTC (rev 696)
@@ -185,7 +185,7 @@
       #      get(getOption("device"))()
             o.warn <- getOption("warn")
             on.exit(options("warn"=o.warn))
-            opar <- par()
+            opar <- par(no.readonly = TRUE)
             opar$cin <- opar$cra <- opar$csi <- opar$cxy <-  opar$din <- NULL
             on.exit(par(opar))