- Corrected the use of the par() function, so no

  unnecessary devices are opened any more
- Adjusted the .Rout.save files to kriemhilds version
  (R 2.3.0 from Debian unstable, i386)



git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@78 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc

1 files changed, 1 insertions, 3 deletions

diff --git a/R/drplot.R b/R/drplot.R
index e690653..120a4b5 100644
--- a/R/drplot.R
+++ b/R/drplot.R
@@ -7,7 +7,6 @@ drplot <- function(drresults, data,
         pointsize = 12,
         colors = 1:8, devoff=T, lpos="topright")
 {
-    op <- par(no.readonly = TRUE)
     # Check if all data have the same unit
     unitlevels <- levels(as.factor(drresults$unit))
     if (length(unitlevels) == 1) {
@@ -88,6 +87,7 @@ drplot <- function(drresults, data,
         # If overlay plot is not requested, ask before showing multiple plots on the screen
         if (!postscript && !png && !pdf && length(dsubstances) > 1) {
             op <- par(ask=TRUE)
+            on.exit(par(op))
         } 
     }
 
@@ -220,6 +220,4 @@ drplot <- function(drresults, data,
             dev.off()
         }
     }
-    # Reset the ask parameter to previous setting
-    par(op)
 }