aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
Diffstat (limited to 'R')
-rw-r--r--R/checkexperiment.R4
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)

Contact - Imprint