diff options
author | (no author) <(no author)@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2004-09-16 12:57:19 +0000 |
---|---|---|
committer | (no author) <(no author)@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2004-09-16 12:57:19 +0000 |
commit | dd53bb43dc9ff40fda076cdc64f378c8bae6f2a7 (patch) | |
tree | f4b8a65b451c2e5da928eba054f836bbccb7f504 /R | |
parent | 91c7d76441b309e6b3b38d00e869ad1cea6e5d0e (diff) |
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
Diffstat (limited to 'R')
-rw-r--r-- | R/drfit.R | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -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 {
|