From a8b7ab73a5df4fdf6cac5bad052b9ed77138fc86 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 12 Dec 2018 10:22:30 +0100 Subject: Add whereClause argument to checkexperiment --- R/checkexperiment.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'R') 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) -- cgit v1.2.1