From cc66ea8e99f809c53cb5a23430b814f68efdb126 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 7 Oct 2015 17:19:21 +0200 Subject: Maintenance changes for the release of 0.6.4 --- R/checksubstance.R | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'R/checksubstance.R') diff --git a/R/checksubstance.R b/R/checksubstance.R index b50c3da..3e07f92 100644 --- a/R/checksubstance.R +++ b/R/checksubstance.R @@ -11,7 +11,11 @@ checksubstance <- function(substance, db = "cytotox", experimentator = "%", if (!(db %in% rownames(databases))) stop("Database is not supported") - channel <- odbcConnect(db,uid="cytotox",pwd="cytotox",case="tolower") + if (requireNamespace("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.") + } responsename = as.character(databases[db,1]) testtype = as.character(databases[db,2]) @@ -41,8 +45,8 @@ checksubstance <- function(substance, db = "cytotox", experimentator = "%", endpoint, "'", sep = "") } - data <- sqlQuery(channel,query) - odbcClose(channel) + data <- RODBC::sqlQuery(channel,query) + RODBC::odbcClose(channel) if (length(data$experimentator) < 1) { stop(paste("\nNo response data for",substance,"in database", -- cgit v1.2.1