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/checkexperiment.R | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'R/checkexperiment.R') diff --git a/R/checkexperiment.R b/R/checkexperiment.R index fb83432..3078ca5 100644 --- a/R/checkexperiment.R +++ b/R/checkexperiment.R @@ -1,7 +1,5 @@ checkexperiment <- function(id,db="ecotox") { - op <- par(no.readonly = TRUE) - databases <- data.frame( responsetype=c("viability","activity","response"), testtype=c("celltype","enzyme","organism"), @@ -31,7 +29,8 @@ checkexperiment <- function(id,db="ecotox") odbcClose(channel) - par(ask=TRUE) + op <- par(ask=TRUE) + on.exit(par(op)) if (db %in% c("cytotox","enzymes")) { blinds <- subset(controldata,type=="blind") @@ -119,7 +118,4 @@ checkexperiment <- function(id,db="ecotox") legend("topright",substances, pch=1, col=1:length(substances), inset=0.05) title(main=paste(levels(expdata$experimentator), " - ",levels(expdata$type))) - - # Reset the graphics parameters to previous setting - par(op) } -- cgit v1.2.1