aboutsummaryrefslogtreecommitdiff
path: root/R/checkexperiment.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/checkexperiment.R')
-rw-r--r--R/checkexperiment.R8
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)
}

Contact - Imprint