Remove unused properties during ProbeSet RDF transform.

The removed terms are actually used when constructing terms.  Most of
this values are NULL anyways.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>

1 files changed, 2 insertions, 40 deletions

diff --git a/examples/probeset.scm b/examples/probeset.scm
index 646c3df..abb3ecb 100755
--- a/examples/probeset.scm
+++ b/examples/probeset.scm
@@ -40,17 +40,7 @@
    (gnt:hasBlatSeq a owl:ObjectProperty)
    (gnt:hasBlatSeq rdfs:domain gnc:Probeset)
    (gnt:hasTargetSeq a owl:ObjectProperty)
-   (gnt:hasTargetSeq rdfs:domain gnc:Probeset)
-   (gnt:hasHomologeneId a owl:ObjectProperty)
-   (gnt:hasHomologeneId rdfs:domain gnc:Probeset)
-   (gnt:hasPubChemId a owl:ObjectProperty)
-   (gnt:hasPubChemId rdfs:domain gnc:Probeset)
-   (gnt:hasKeggId a owl:ObjectProperty)
-   (gnt:hasKeggId rdfs:domain gnc:Probeset)
-   (gnt:hasOmimId a owl:ObjectProperty)
-   (gnt:hasOmimId rdfs:domain gnc:Probeset)
-   (gnt:hasChebiId a owl:ObjectProperty)
-   (gnt:hasChebiId rdfs:domain gnc:Probeset))
+   (gnt:hasTargetSeq rdfs:domain gnc:Probeset))
   (triples
       (let ((id (field ("IF(NULLIF(TRIM(ProbeSet.Name), '') IS NULL, '', TRIM(ProbeSet.Name))"
                         ProbeSetIdName)))
@@ -129,35 +119,7 @@
                                  Probe_set_Blat_Mb_end))
                          '^^xsd:double))
     (set gnt:hasBlatSeq (sanitize-rdf-string (field ProbeSet BlatSeq)))
-    (set gnt:hasTargetSeq (sanitize-rdf-string (field ProbeSet TargetSeq)))
-    (set gnt:hasHomologeneId (ontology 'homologene:
-                                       (field ("IFNULL(ProbeSet.HomoloGeneID, '')"
-                                               HomoloGeneID))))
-    (set gnt:hasUniprotId (ontology 'uniprot:
-                                    (field ("IFNULL(ProbeSet.UniProtID, '')"
-                                            UniProtID))))
-    (set gnt:hasPubChemId (ontology
-                           'pubchem:
-                           (field ("IFNULL(ProbeSet.PubChem_ID, '')"
-                                   PubChem_ID))))
-    (set gnt:hasKeggId (ontology
-                        'kegg:
-                        (field ("IFNULL(ProbeSet.KEGG_ID, '')"
-                                KEGG_ID))))
-    (set gnt:hasOmimId (ontology
-                        'omim:
-                        (let ((omim (field ("IFNULL(ProbeSet.OMIM, '')"
-                                            OMIM))))
-                          (if (number? omim)
-                              omim
-                              (regexp-substitute/global
-                               #f "[^0-9]"
-                               omim
-                               'pre "" 'post)))))
-    (set gnt:hasChebiId (ontology
-                         'chebi:
-                         (field ("IFNULL(ProbeSet.ChEBI_ID, '')"
-                                 ChEBI_ID))))))
+    (set gnt:hasTargetSeq (sanitize-rdf-string (field ProbeSet TargetSeq)))))