aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
Diffstat (limited to 'R')
-rw-r--r--R/drfit.R3
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 {

Contact - Imprint