; 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]}))))