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

1 files changed, 3 insertions, 0 deletions

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 {