diff options
author | Johannes Ranke <jranke@uni-bremen.de> | 2017-03-24 15:24:04 +0100 |
---|---|---|
committer | Johannes Ranke <jranke@uni-bremen.de> | 2017-03-24 15:24:04 +0100 |
commit | 22c11d5dbc118881f9cfd7c9c2ac9711295a0f16 (patch) | |
tree | a2c88069b82633027047c60bf656e53c4b561182 /R/drdata.R | |
parent | b05f8438729e8070f4e0cbbf628bbbcbbe3f1a7a (diff) |
Suppress error messages in dr(c)fit, maintenance
- Checking examples fails if error messages in dr(c)fit stemming from
failed fits are printed
- Delete trailing whitespace
- Update packaging
Diffstat (limited to 'R/drdata.R')
-rw-r--r-- | R/drdata.R | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 '", |