diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2015-12-15 01:34:14 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2015-12-15 01:34:14 +0100 |
| commit | 39fab3ac713248e7f358ebb182cfbf228d8d3100 (patch) | |
| tree | a4f610947167962c3ea893a48296f69641b9a47b /R | |
| parent | cc66ea8e99f809c53cb5a23430b814f68efdb126 (diff) | |
Fix connecting to the UFT database
Diffstat (limited to 'R')
| -rw-r--r-- | R/checkexperiment.R | 2 | ||||
| -rw-r--r-- | R/checksubstance.R | 2 | ||||
| -rw-r--r-- | R/drdata.R | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/R/checkexperiment.R b/R/checkexperiment.R index 8c2f472..b264243 100644 --- a/R/checkexperiment.R +++ b/R/checkexperiment.R @@ -9,7 +9,7 @@ checkexperiment <- function(id, db = "ecotox", endpoint = "%") if (!(db %in% rownames(databases))) stop("Database is not supported") - if (requireNamespace("RODBC")) { + if (require("RODBC")) { channel <- RODBC::odbcConnect(db, uid="cytotox", pwd="cytotox", case="tolower") } else { stop("For this function, the RODBC package has to be installed and configured.") diff --git a/R/checksubstance.R b/R/checksubstance.R index 3e07f92..790182f 100644 --- a/R/checksubstance.R +++ b/R/checksubstance.R @@ -11,7 +11,7 @@ checksubstance <- function(substance, db = "cytotox", experimentator = "%", if (!(db %in% rownames(databases))) stop("Database is not supported") - if (requireNamespace("RODBC")) { + if (require("RODBC")) { channel <- RODBC::odbcConnect(db, uid="cytotox", pwd="cytotox", case="tolower") } else { stop("For this function, the RODBC package has to be installed and configured.") @@ -3,7 +3,7 @@ drdata <- function(substances, experimentator = "%", db = "cytotox", organism = "Vibrio fischeri", endpoint = "Luminescence", whereClause = "1", ok = "'ok','no fit'") { - if (requireNamespace("RODBC")) { + if (require("RODBC")) { channel <- RODBC::odbcConnect(db,uid="cytotox",pwd="cytotox",case="tolower") slist <- paste(substances,collapse="','") if (db == "cytotox") { |