From 8eea91d691ee60f0ce5bd3560f2e4b7e5820556a Mon Sep 17 00:00:00 2001
From: ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>
Date: Fri, 28 Apr 2006 14:08:02 +0000
Subject: I also removed the get(getOption("device"))() call from the
 checkexperiment function, and updated the INDEX.

git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@75 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc
---
 R/checkexperiment.R | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'R')

diff --git a/R/checkexperiment.R b/R/checkexperiment.R
index c29b1e5..fb83432 100644
--- a/R/checkexperiment.R
+++ b/R/checkexperiment.R
@@ -1,5 +1,7 @@
 checkexperiment <- function(id,db="ecotox")
 {
+    op <- par(no.readonly = TRUE)
+
     databases <- data.frame(
         responsetype=c("viability","activity","response"),
         testtype=c("celltype","enzyme","organism"),
@@ -29,6 +31,8 @@ checkexperiment <- function(id,db="ecotox")
 
     odbcClose(channel)
 
+    par(ask=TRUE)
+
     if (db %in% c("cytotox","enzymes")) {
         blinds <- subset(controldata,type=="blind")
         controls <- subset(controldata,type=="control")
@@ -77,8 +81,7 @@ checkexperiment <- function(id,db="ecotox")
         "\tcontrol\t",numberOfControls,"\t",meanOfControls,"\t",
             stdOfControls,"\t\t",percentstdOfcontrols,"\n")
     
-    get(getOption("device"))(width=10,height=5)
-    par(mfcol=c(1,2))
+
     if (db == "ecotox") {
         boxplot(controls$response,
             names="controls",
@@ -116,4 +119,7 @@ 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