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/drdata.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R/drdata.R')

diff --git a/R/drdata.R b/R/drdata.R
index 0bf9597..eda1249 100644
--- a/R/drdata.R
+++ b/R/drdata.R
@@ -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") {
-- 
cgit v1.2.1