[Gtdb-commits] r33 - pkg/gt.db/R

[noreply at r-forge.r-project.org]

Author: dahinds
Date: 2010-02-17 21:19:15 +0100 (Wed, 17 Feb 2010)
New Revision: 33

Modified:
   pkg/gt.db/R/genotype.R
Log:
Fixed bug in fetch.gt.data(..., dbsnp.rsid=)



Modified: pkg/gt.db/R/genotype.R
===================================================================
--- pkg/gt.db/R/genotype.R	2010-02-17 19:02:32 UTC (rev 32)
+++ pkg/gt.db/R/genotype.R	2010-02-17 20:19:15 UTC (rev 33)
@@ -71,7 +71,7 @@
         sql <- paste(sql, 'and a.name=:3')
         dat <- .sql.prep.data(dset.id, map.id, assay.name)
     } else if (!missing(dbsnp.rsid)) {
-        sql <- paste(sql, 'and dbsnp.rsid=:3')
+        sql <- paste(sql, 'and dbsnp_rsid=:3')
         dat <- .sql.prep.data(dset.id, map.id, dbsnp.rsid)
     } else if (!missing(part)) {
         by <- match.arg(by)