Merge pull request #40 from ncbo/feature/enhanced_skos_support

Feature/enhanced skos support

Author: alexskr

lib/ontologies_api_client/base.rb

@@ -66,6 +66,13 @@ def type
         @type
       end
 
+      def self.explore(id)
+         path = self.respond_to?(:collection_path) ? collection_path : ''
+         id = "#{path}/#{id}" unless id.include?(path)
+         inst = self.new(values: {id: id})
+         LinkedData::Client::LinkExplorer.new({}, inst)
+      end
+
       ##
       # Retrieve a set of data using a link provided on an object
       # This instantiates an instance of this class and uses
@@ -132,11 +139,16 @@ def create_attributes(attributes)
           attr_exists = self.public_methods(false).include?(attr)
           unless attr_exists
             self.class.class_eval do
-              define_method attr.to_sym do
-                instance_variable_get("@#{attr}")
+              unless method_defined?(attr.to_sym)
+                define_method attr.to_sym do
+                  instance_variable_get("@#{attr}")
+                end
               end
-              define_method "#{attr}=" do |val|
-                instance_variable_set("@#{attr}", val)
+
+              unless method_defined?("#{attr}=".to_sym)
+                define_method "#{attr}=" do |val|
+                  instance_variable_set("@#{attr}", val)
+                end
               end
             end
           end

lib/ontologies_api_client/collection.rb

@@ -24,15 +24,16 @@ def method_missing(meth, *args, &block)
 
         ##
         # Get all top-level links for the API
-        def top_level_links
-          @top_level_links ||= HTTP.get(LinkedData::Client.settings.rest_url)
+        def top_level_links(link = LinkedData::Client.settings.rest_url)
+          @top_level_links ||= {}
+          @top_level_links[link] ||= HTTP.get(link)
         end
 
-        ##
+        #
         # Return a link given an object (with links) and a media type
         def uri_from_context(object, media_type)
           object.links.each do |type, link|
-            return link if link.media_type && link.media_type.downcase.eql?(media_type.downcase)
+            return link.dup if link.media_type && link.media_type.downcase.eql?(media_type.downcase)
           end
         end
 

lib/ontologies_api_client/link_explorer.rb

@@ -11,11 +11,17 @@ def initialize(links, instance)
         @instance = instance
       end
 
+      def get(params = {})
+        get_link(@instance.id, params)
+      end
+
       def method_missing(meth, *args, &block)
         if combined_links.key?(meth.to_s)
           explore_link(meth, *args)
         elsif meth == :batch
           explore_link(args)
+        elsif !@instance.id.blank?
+          forward_explore(meth, *args)
         else
           super
         end
@@ -43,10 +49,7 @@ def explore_link(*args)
           ids = link.map {|l| l.to_s}
           value_cls.where {|o| ids.include?(o.id)}
         else
-          url = replace_template_elements(link.to_s, replacements)
-          value_cls = LinkedData::Client::Base.class_for_type(link.media_type)
-          params[:include] ||= value_cls.attributes(full_attributes)
-          HTTP.get(url, params)
+          get_link(link, params, replacements, full_attributes)
         end
       end
 
@@ -56,6 +59,23 @@ def combined_links
 
       private
 
+      def forward_explore(meth, *args)
+        sub_id = Array(args).find { |x| x.is_a?(String) } || ''
+        escaped_sub_id = Addressable::URI.encode_component(sub_id, Addressable::URI::CharacterClasses::UNRESERVED)
+        link = "#{@instance.id}/#{meth}/#{escaped_sub_id}".chomp('/')
+        @instance.id = link
+        LinkExplorer.new(@links, @instance)
+      end
+
+      def get_link(link, params, replacements = [], full_attributes = {})
+        url = replace_template_elements(link.to_s, replacements)
+        if link.respond_to? :media_type
+          value_cls = LinkedData::Client::Base.class_for_type(link.media_type)
+          params[:include] ||= value_cls.attributes(full_attributes)
+        end
+        HTTP.get(url, params)
+      end
+
       def replace_template_elements(url, values = [])
         return url if values.nil? || values.empty?
 
@@ -95,4 +115,4 @@ def linkable_attributes
       end
     end
   end
-end
+end

lib/ontologies_api_client/models/class.rb

@@ -8,9 +8,9 @@ module Models
       class Class < LinkedData::Client::Base
         HTTP = LinkedData::Client::HTTP
         @media_type = %w[http://www.w3.org/2002/07/owl#Class http://www.w3.org/2004/02/skos/core#Concept]
-        @include_attrs = "prefLabel,definition,synonym,obsolete,hasChildren"
-        @include_attrs_full = "prefLabel,definition,synonym,obsolete,properties,hasChildren,children"
-        @attrs_always_present = :prefLabel, :definition, :synonym, :obsolete, :properties, :hasChildren, :children
+        @include_attrs = "prefLabel,definition,synonym,obsolete,hasChildren,inScheme,memberOf"
+        @include_attrs_full = "prefLabel,definition,synonym,obsolete,properties,hasChildren,childre,inScheme,memberOf"
+        @attrs_always_present = :prefLabel, :definition, :synonym, :obsolete, :properties, :hasChildren, :children, :inScheme, :memberOf
 
         alias :fullId :id
 

lib/ontologies_api_client/models/collection.rb

@@ -0,0 +1,12 @@
+require_relative "../base"
+
+module LinkedData
+  module Client
+    module Models
+      class Collection < LinkedData::Client::Base
+        include LinkedData::Client::Collection
+        @media_type =  "http://www.w3.org/2004/02/skos/core#Collection"
+      end
+    end
+  end
+end

lib/ontologies_api_client/models/scheme.rb

@@ -0,0 +1,12 @@
+require_relative "../base"
+
+module LinkedData
+  module Client
+    module Models
+      class Scheme < LinkedData::Client::Base
+        include LinkedData::Client::Collection
+        @media_type = "http://www.w3.org/2004/02/skos/core#ConceptScheme"
+      end
+    end
+  end
+end

lib/ontologies_api_client/models/skos_xl_label.rb

@@ -0,0 +1,12 @@
+require_relative "../base"
+
+module LinkedData
+  module Client
+    module Models
+      class Label < LinkedData::Client::Base
+        include LinkedData::Client::Collection
+        @media_type = "http://www.w3.org/2008/05/skos-xl#Label"
+      end
+    end
+  end
+end

test/models/test_explore.rb

@@ -0,0 +1,50 @@
+require_relative '../test_case'
+require 'pry'
+
+module Models
+  def self.method_missing
+    binding.pry
+  end
+end
+
+class LinkExploreTest < LinkedData::Client::TestCase
+  def test_explore
+    sub_direct_explore = LinkedData::Client::Models::Ontology.explore('MEDDRA')
+                                                             .latest_submission
+                                                             .get(include: 'all')
+
+    sub_indirect_explore = LinkedData::Client::Models::Ontology.find('MEDDRA').explore.latest_submission
+
+    refute_nil sub_direct_explore
+    refute_nil sub_indirect_explore
+
+    sub_direct_explore.to_hash.each do |key, value|
+      value_to_compare = sub_indirect_explore.to_hash[key]
+      if value.class.ancestors.include?(LinkedData::Client::Base)
+        value = value.to_hash
+        value_to_compare = value_to_compare.to_hash
+      end
+      # assert_equal value_to_compare, value, "Mismatch for key #{key}"
+      assert value == value_to_compare, "Mismatch for key #{key}: #{value.inspect} != #{value_to_compare.inspect}"
+    end
+  end
+
+  def test_explore_class
+
+    id = 'http://purl.org/sig/ont/fma/fma62955'
+    cls = LinkedData::Client::Models::Ontology.explore('FMA')
+                                              .classes(id)
+                                              .children
+                                              .get
+
+    refute_empty cls.collection
+
+    cls = LinkedData::Client::Models::Ontology.explore('FMA')
+                                              .classes(id)
+                                              .children
+                                              .get(include: 'prefLabel')
+
+    refute_empty cls.collection
+  end
+
+end