From 461e595eff40675c527ff1a339f736df086d0eb2 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Wed, 22 Nov 2023 12:53:10 +0300
Subject: 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>
---
 examples/probeset.scm | 42 ++----------------------------------------
 1 file changed, 2 insertions(+), 40 deletions(-)

(limited to 'examples')

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)))))
 
 
 
-- 
cgit v1.2.3