1 files changed, 6 insertions, 2 deletions
diff --git a/R/drfit.R b/R/drfit.R
index 9516180..7ffb1a0 100644
--- a/R/drfit.R
+++ b/R/drfit.R
@@ -215,7 +215,7 @@ drfit <- function(data, startlogEC50 = NA, chooseone=TRUE,
 drplot <- function(drresults, data, dtype = "std", alpha = 0.95,
         path = "./", fileprefix = "drplot", overlay = FALSE,
         postscript = FALSE, png = FALSE, bw = TRUE,
-        colors = 1:8)
+        colors = 1:8,devoff=T)
 {
     unitlevels <- levels(as.factor(drresults$unit))
     if (length(unitlevels) == 1) {
@@ -373,7 +373,11 @@ drplot <- function(drresults, data, dtype = "std", alpha = 0.95,
         }
     }
     if (overlay) legend(lhd - 1, hr + 0.1, dsubstances,lty = 1, col = colors)
-    if (overlay && (postscript || png)) dev.off()
+    if (overlay && (postscript || png)) {
+        if (devoff) {
+            dev.off()
+        }
+    }
 }
 
 checkplate <- function(plate,db="cytotox")