Add trait page link for probesets and phenotypes. HEAD master

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

2 files changed, 12 insertions, 0 deletions

diff --git a/examples/phenotype.scm b/examples/phenotype.scm
index 57fd2c5..70deed7 100755
--- a/examples/phenotype.scm
+++ b/examples/phenotype.scm
@@ -86,6 +86,11 @@
     (set owl:equivalentClass
          (field ("CONCAT(PublishFreeze.Name, '_', PublishXRef.Id)"
                  PublishFreeze)))
+    (set gnt:has_trait_page
+         (string->symbol
+          (format #f "<https://genenetwork.org/show_trait?trait_id=~a&dataset=~a>"
+                  (field PublishXRef Id)
+                  (field PublishFreeze Name))))
     (set dcat:distribution
          (string->symbol
           (format #f "gnd:~a.json"
diff --git a/examples/probesets-experiment-metadata.scm b/examples/probesets-experiment-metadata.scm
index 83a8ead..4bab425 100755
--- a/examples/probesets-experiment-metadata.scm
+++ b/examples/probesets-experiment-metadata.scm
@@ -30,6 +30,13 @@
     ;;        (format #f "gnd:~a.json"
     ;;                (field ("CONCAT(ProbeSetFreeze.Name, '_', ProbeSet.Name)"
     ;;                        PublishFreeze))))) )
+    (set gnt:has_trait_page
+         (string->symbol
+          (format #f "<https://genenetwork.org/show_trait?trait_id=~a&dataset=~a>"
+                  (field ProbeSet Name)
+                  ;; GTEx_Lung _0414
+                  (uri-encode
+                   (field ProbeSetFreeze Name ProbeSetFreezeName)))))
     (set gnt:has_probeset (string->identifier "probeset" (field ProbeSet Name ProbeSetName)))
     (set dcat:isPartOf (string->identifier "dataset" (field ProbeSetFreeze Name ProbeSetFreezeName)
                                            #:separator "_"))