zzh
/
gatk-3.8
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Selects only the project requested via the Oracle command, rather than selecting everything and then subsetting. 

git-svn-id: file:///humgen/gsa-scr1/gsa-engineering/svn_contents/trunk@4949 348d0f76-0448-11de-a6fe-93d51630548a
This commit is contained in:
kiran 2011-01-06 15:32:32 +00:00
parent d88fd7212f
commit ab143c82af
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
R/src/gsalib/R/gsa.read.squidmetrics.R
View File

@ -5,12 +5,18 @@ gsa.read.squidmetrics = function(project, bylane = FALSE) {
con = dbConnect(drv, "REPORTING/REPORTING@ora01:1521/SEQPROD"); con = dbConnect(drv, "REPORTING/REPORTING@ora01:1521/SEQPROD");
if (bylane) { 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); d = fetch(rs, n=-1);
dbHasCompleted(rs); dbHasCompleted(rs);
dbClearResult(rs); dbClearResult(rs);
} else { } 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); d = fetch(rs, n=-1);
dbHasCompleted(rs); dbHasCompleted(rs);
dbClearResult(rs); dbClearResult(rs);