From 39fab3ac713248e7f358ebb182cfbf228d8d3100 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Tue, 15 Dec 2015 01:34:14 +0100 Subject: Fix connecting to the UFT database --- R/checksubstance.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'R/checksubstance.R') 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.") -- cgit v1.2.1