[Distr-commits] r171 - branches/distr-2.0/pkg/distrMod/R

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

Author: stamats
Date: 2008-06-03 14:13:00 +0200 (Tue, 03 Jun 2008)
New Revision: 171

Modified:
   branches/distr-2.0/pkg/distrMod/R/AllPlot.R
Log:
use devNew instead of get(getOption("device"))

Modified: branches/distr-2.0/pkg/distrMod/R/AllPlot.R
===================================================================
--- branches/distr-2.0/pkg/distrMod/R/AllPlot.R	2008-06-03 11:49:39 UTC (rev 170)
+++ branches/distr-2.0/pkg/distrMod/R/AllPlot.R	2008-06-03 12:13:00 UTC (rev 171)
@@ -39,7 +39,7 @@
         w0 <- options("warn")
         options(warn = -1)
         opar <- par()
-        get(getOption("device"))()
+        devNew()
         nrows <- trunc(sqrt(dims))
         ncols <- ceiling(dims/nrows)
         par(mfrow = c(nrows, ncols))