From 83ea568d8e84ead51cf0cc61573c0f6e7931da1a Mon Sep 17 00:00:00 2001 From: ranke Date: Mon, 8 May 2006 17:44:54 +0000 Subject: - 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 --- R/drplot.R | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'R/drplot.R') 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) } -- cgit v1.2.1