rtirrell

(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

(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

(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

require "dm-core"
require "dm-types"
require "noorm"

module NOORM
  class Disease
    property :concept_id, String, :key => true
    property :name, String
  end

rtirrell

#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

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

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

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

  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

  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