diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2018-12-12 10:22:30 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2018-12-12 10:22:30 +0100 |
| commit | a8b7ab73a5df4fdf6cac5bad052b9ed77138fc86 (patch) | |
| tree | cb4c76677217dd8da215b866ceecdcd279e52a81 /R | |
| parent | 6cd60a250597e6cae027e17fbb9dd40ca63f1728 (diff) | |
Add whereClause argument to checkexperiment
Diffstat (limited to '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) |