Suppress error messages in dr(c)fit, maintenance

- Checking examples fails if error messages in dr(c)fit stemming from
failed fits are printed
- Delete trailing whitespace
- Update packaging

1 files changed, 2 insertions, 2 deletions

diff --git a/R/drdata.R b/R/drdata.R
index eda1249..dc741a6 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 (require("RODBC")) {
+  if (requireNamespace("RODBC")) {
     channel <- RODBC::odbcConnect(db,uid="cytotox",pwd="cytotox",case="tolower")
     slist <- paste(substances,collapse="','")
     if (db == "cytotox") {
@@ -21,7 +21,7 @@ drdata <- function(substances, experimentator = "%", db = "cytotox",
             type <- organism
         }
     }
-        
+
     query <- paste("SELECT conc,",responsetype,",unit,experimentator,substance,",testtype,
         ",ok FROM ", db, " WHERE substance IN ('",
         slist,"') AND experimentator LIKE '",