aboutsummaryrefslogtreecommitdiff
path: root/R/drdata.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/drdata.R')
-rw-r--r--R/drdata.R4
1 files changed, 2 insertions, 2 deletions
diff --git a/R/drdata.R b/R/drdata.R
index eda1249..dc741a6 100644
--- a/R/drdata.R
+++ b/R/drdata.R
@@ -3,7 +3,7 @@ drdata <- function(substances, experimentator = "%", db = "cytotox",
organism = "Vibrio fischeri", endpoint = "Luminescence", whereClause = "1",
ok = "'ok','no fit'")
{
- if (require("RODBC")) {
+ if (requireNamespace("RODBC")) {
channel <- RODBC::odbcConnect(db,uid="cytotox",pwd="cytotox",case="tolower")
slist <- paste(substances,collapse="','")
if (db == "cytotox") {
@@ -21,7 +21,7 @@ drdata <- function(substances, experimentator = "%", db = "cytotox",
type <- organism
}
}
-
+
query <- paste("SELECT conc,",responsetype,",unit,experimentator,substance,",testtype,
",ok FROM ", db, " WHERE substance IN ('",
slist,"') AND experimentator LIKE '",

Contact - Imprint