From 6d220f8d71564a0430473ab2465e169adddb02d8 Mon Sep 17 00:00:00 2001
From: ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>
Date: Fri, 28 Apr 2006 11:42:14 +0000
Subject: - Fixed the drplot function, so the graphics parameter ask is
 adequately set   depending on the overlay argument, and set back to the
 previous value - Added a test for each datase - Added a demo for each dataset
 - Corrected many small bugs in the documentation and improved formatting   of
 the .Rd files

git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@74 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc
---
 R/drplot.R | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'R')

diff --git a/R/drplot.R b/R/drplot.R
index eaae85b..e690653 100644
--- a/R/drplot.R
+++ b/R/drplot.R
@@ -7,6 +7,7 @@ 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) {
@@ -85,9 +86,9 @@ drplot <- function(drresults, data,
             ylab = "Normalized response")
     } else {
         # If overlay plot is not requested, ask before showing multiple plots on the screen
-        if (!postscript && !png && !pdf) {
-            par(ask=TRUE)
-        }
+        if (!postscript && !png && !pdf && length(dsubstances) > 1) {
+            op <- par(ask=TRUE)
+        } 
     }
 
     # Plot the data either as raw data or as error bars
@@ -219,4 +220,6 @@ drplot <- function(drresults, data,
             dev.off()
         }
     }
+    # Reset the ask parameter to previous setting
+    par(op)
 }
-- 
cgit v1.2.1