From dd53bb43dc9ff40fda076cdc64f378c8bae6f2a7 Mon Sep 17 00:00:00 2001 From: "(no author)" <(no author)@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> Date: Thu, 16 Sep 2004 12:57:19 +0000 Subject: I added the odbcClose statement, since obviously the number of open channels is restricted. JR git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@7 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc --- R/drfit.R | 3 +++ 1 file changed, 3 insertions(+) diff --git a/R/drfit.R b/R/drfit.R index cfc7263..bd93f8a 100644 --- a/R/drfit.R +++ b/R/drfit.R @@ -13,6 +13,7 @@ drdata <- function(substances, experimentator = "%", db = "cytotox", whereClause," AND ok in (", ok,")",sep="") data <- sqlQuery(channel,query) + odbcClose(channel) names(data)[[1]] <- "dose" names(data)[[2]] <- "response" data$dosefactor <- factor(data$dose) @@ -379,6 +380,8 @@ checkplate <- function(plate,db="cytotox") { platedata <- sqlQuery(channel,platequery) controldata <- sqlQuery(channel,controlquery) + odbcClose(channel) + if (length(platedata$experimentator) < 1) { cat("There is no response data for plate ",plate," in database ",db,"\n") } else { -- cgit v1.2.1