Rob Tirrell rtirrell
rtirrell
/ gist:473714
Created
July 13, 2010 10:41
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ns oba-client | |
| (:use [clojure-http.resourcefully :as res] | |
| [clojure.contrib.str-utils :only [str-join]]) | |
| (:refer-clojure :exclude [get])) | |
| (def default-timeout 30) | |
| (def default-uri "http://rest.bioontology.org/obs/annotator") | |
| (def all-annotator-parameters #{ | |
rtirrell
/ gist:473713
Created
July 13, 2010 10:41
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ns oba-client | |
| (:use [clojure-http.resourcefully :as res] | |
| [clojure.contrib.str-utils :only [str-join]]) | |
| (:refer-clojure :exclude [get])) | |
| (def default-timeout 30) | |
| (def default-uri "http://rest.bioontology.org/obs/annotator") | |
| (def all-annotator-parameters #{ | |
rtirrell
/ gist:473695
Created
July 13, 2010 10:14
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ns oba-client | |
| (:use [clojure-http.resourcefully :as res] | |
| [clojure.contrib.str-utils :only [str-join]]) | |
| (:refer-clojure :exclude [get])) | |
| (def default-timeout 30) | |
| (def default-uri "http://rest.bioontology.org/obs/annotator") | |
| (def all-annotator-parameters #{ | |
| "email" |
rtirrell
/ gist:460771
Created
July 2, 2010 01:02
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require "dm-core" | |
| require "dm-types" | |
| require "noorm" | |
| module NOORM | |
| class Disease | |
| property :concept_id, String, :key => true | |
| property :name, String | |
| end |
rtirrell
/ gist:459540
Created
July 1, 2010 03:38
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #class GEO | |
| # def self.inherited(subclass) | |
| # subclass.class_eval do | |
| # include DataMapper::Resource | |
| # def self.default_repository_name; :expr_geo; end | |
| # end | |
| # end | |
| #end | |
| # |
rtirrell
/ gist:459539
Created
July 1, 2010 03:38
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require "rubygems" | |
| require "dm-core" | |
| class GSE | |
| include DataMapper::Resource | |
| def self.default_repository_name; :expr_geo; end | |
| storage_names[:expr_geo] = "gse_list" | |
| property :gse, Integer, :key => true | |
| has n, :gse_gsms, "GSEGSM", :child_key => [:gse], :parent_key => [:gse] |
rtirrell
/ gist:459538
Created
July 1, 2010 03:37
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require "rubygems" | |
| require "dm-core" | |
| class GSE | |
| include DataMapper::Resource | |
| def self.default_repository_name; :expr_geo; end | |
| storage_names[:expr_geo] = "gse_list" | |
| property :gse, Integer, :key => true | |
| has n, :gse_gsms, "GSEGSM", :child_key => [:gse], :parent_key => [:gse] |
rtirrell
/ gist:459532
Created
July 1, 2010 03:31
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| class GSE | |
| include DataMapper::Resource | |
| def self.default_repository_name; :expr_geo; end | |
| storage_names[:expr_geo] = "gse_list" | |
| property :gse, Integer, :key => true | |
| has n, :gse_gsms, "GSEGSM", :child_key => [:gse], :parent_key => [:gse] | |
| has n, :gsm_objects, "GSM", :through => :gse_gsm | |
| end |
rtirrell
/ gist:459525
Created
July 1, 2010 03:23
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| class GEO | |
| def self.inherited(subclass) | |
| subclass.class_eval do | |
| include DataMapper::Resource | |
| def self.default_repository_name; :expr_geo; end | |
| end | |
| end | |
| end |
rtirrell
/ gist:459457
Created
July 1, 2010 02:03
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| class GSE < GEO | |
| storage_names[:expr_geo] = "gse_list" | |
| property :gse, Integer, :key => true | |
| has n, :gse_gsms, "GSEGSM", :child_key => [:gse], :parent_key => [:gse] | |
| has n, :gsm_objects, "GSM", :through => :gse_gsm | |
| end | |
| class GSEGSM < GEO |