diff options
author | ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2006-05-08 17:44:54 +0000 |
---|---|---|
committer | ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2006-05-08 17:44:54 +0000 |
commit | 83ea568d8e84ead51cf0cc61573c0f6e7931da1a (patch) | |
tree | ee6e25e34ddeaa090437d153975a2fe0fd9d846b /R/checkexperiment.R | |
parent | d38e129954e952c0cc6bcbae88c5a2bcbca024f8 (diff) |
- 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
Diffstat (limited to 'R/checkexperiment.R')
-rw-r--r-- | R/checkexperiment.R | 8 |
1 files changed, 2 insertions, 6 deletions
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) } |