aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
Diffstat (limited to 'R')
-rw-r--r--R/drdata.R8
1 files changed, 6 insertions, 2 deletions
diff --git a/R/drdata.R b/R/drdata.R
index dc741a6..b7e4761 100644
--- a/R/drdata.R
+++ b/R/drdata.R
@@ -7,23 +7,27 @@ drdata <- function(substances, experimentator = "%", db = "cytotox",
channel <- RODBC::odbcConnect(db,uid="cytotox",pwd="cytotox",case="tolower")
slist <- paste(substances,collapse="','")
if (db == "cytotox") {
+ experimenttype <- "plate"
responsetype <- "viability"
testtype <- "celltype"
type <- celltype
} else {
if (db == "enzymes") {
+ experimenttype <- "plate"
responsetype <- "activity"
testtype <- "enzyme"
type <- enzymetype
} else {
+ experimenttype <- "experiment"
responsetype <- "response"
testtype <- "organism"
type <- organism
}
}
- query <- paste("SELECT conc,",responsetype,",unit,experimentator,substance,",testtype,
- ",ok FROM ", db, " WHERE substance IN ('",
+ query <- paste("SELECT conc,",responsetype,", unit, experimentator, ",
+ experimenttype, ", substance, ", testtype,
+ ", ok FROM ", db, " WHERE substance IN ('",
slist,"') AND experimentator LIKE '",
experimentator,"' AND ",testtype," LIKE '",
type,"' AND ",

Contact - Imprint