From 78400199cd3e00b294cc5b441e150770fc57393d Mon Sep 17 00:00:00 2001 From: ranke Date: Mon, 14 Mar 2005 06:10:41 +0000 Subject: Added the option to leave the graphics file device open in drplot(). git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@18 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc --- R/drfit.R | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'R') 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") -- cgit v1.2.1