From 39fab3ac713248e7f358ebb182cfbf228d8d3100 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Tue, 15 Dec 2015 01:34:14 +0100
Subject: Fix connecting to the UFT database

---
 R/checkexperiment.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R/checkexperiment.R')

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.")
-- 
cgit v1.2.1