--- a
+++ b/inst/queries/sparseDataMatchField.xq
@@ -0,0 +1,12 @@
+; sparseDataMatchField
+(fn [field dataset names]
+	(let [getfield (fn [field]
+					 (:id (car (query {:select [:field.id]
+									   :from [:dataset]
+									   :join [:field [:= :dataset.id :field.dataset_id]]
+									   :where [:and [:= :field.name field] [:= :dataset.name dataset]]}))))
+		  genes (getfield field)]
+	  (map :gene (query {:select [:%distinct.gene]
+						 :from [:field_gene]
+						 :join [{:table [[[:name :varchar names]] :T]} [:= :T.name :gene]]
+						 :where [:= :field_gene.field_id genes]}))))