diff options
Diffstat (limited to 'R/checkexperiment.R')
| -rw-r--r-- | R/checkexperiment.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/checkexperiment.R b/R/checkexperiment.R index 865d678..0715fc2 100644 --- a/R/checkexperiment.R +++ b/R/checkexperiment.R @@ -2,7 +2,7 @@ utils::globalVariables(c("type", "conc", "substance")) checkexperiment <- function(id, db = c("ecotox", "cytotox", "enzymes"), - endpoint = "%") + endpoint = "%", whereClause = "1") { db = match.arg(db) @@ -34,7 +34,7 @@ checkexperiment <- function(id, "WHERE ", exptype, "=", id) if (db == "ecotox") { - expquery <- paste0(expquery, " AND type LIKE '", endpoint, "'") + expquery <- paste0(expquery, " AND type LIKE '", endpoint, "' AND ", whereClause) } expdata <- dbGetQuery(con, expquery) |