- 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

1 files changed, 6 insertions, 3 deletions

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)
 }