diff --git a/R/src/gsalib/R/gsa.read.squidmetrics.R b/R/src/gsalib/R/gsa.read.squidmetrics.R index 6451edda2..39fa1ad32 100644 --- a/R/src/gsalib/R/gsa.read.squidmetrics.R +++ b/R/src/gsalib/R/gsa.read.squidmetrics.R @@ -5,12 +5,18 @@ gsa.read.squidmetrics = function(project, bylane = FALSE) { con = dbConnect(drv, "REPORTING/REPORTING@ora01:1521/SEQPROD"); if (bylane) { - rs = dbSendQuery(con, statement = paste("SELECT * FROM ILLUMINA_PICARD_METRICS")); + statement = paste("SELECT * FROM ILLUMINA_PICARD_METRICS WHERE \"Project\" = '", project, "'", sep=""); + print(statement); + + rs = dbSendQuery(con, statement = statement); d = fetch(rs, n=-1); dbHasCompleted(rs); dbClearResult(rs); } else { - rs = dbSendQuery(con, statement = paste("SELECT * FROM ILLUMINA_SAMPLE_STATUS_AGG")); + statement = paste("SELECT * FROM ILLUMINA_SAMPLE_STATUS_AGG WHERE \"Project\" = '", project, "'", sep=""); + print(statement); + + rs = dbSendQuery(con, statement = statement); d = fetch(rs, n=-1); dbHasCompleted(rs); dbClearResult(rs);