Add pointers to git metadata in RDF for the dataset metadata.

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

1 files changed, 176 insertions, 0 deletions

diff --git a/examples/dataset-metadata.scm b/examples/dataset-metadata.scm
index 5c59530..9c30180 100755
--- a/examples/dataset-metadata.scm
+++ b/examples/dataset-metadata.scm
@@ -146,6 +146,26 @@
    (gnt:hasCaseInfo rdfs:label "About Case")
    (gnt:hasCaseInfo a owl:ObjectProperty)
    (gnt:hasCaseInfo skos:definition "Information about the cases used in this platform")
+   (gnt:hasSummary rdfs:domain dcat:Dataset)
+   (gnt:hasSummary rdfs:label "Summary")
+   (gnt:hasSummary a owl:ObjectProperty)
+   (gnt:hasSummary skos:definition "Summary information about dataset")
+   (gnt:hasCitation rdfs:domain dcat:Dataset)
+   (gnt:hasCitation rdfs:label "Citation")
+   (gnt:hasCitation a owl:ObjectProperty)
+   (gnt:hasCitation skos:definition "Citation for this dataset")
+   (gnt:hasContributors rdfs:domain dcat:Dataset)
+   (gnt:hasContributors rdfs:label "Contributors")
+   (gnt:hasContributors a owl:ObjectProperty)
+   (gnt:hasContributors skos:definition "Contributors of this resource")
+   (gnt:hashasExperimentDesign rdfs:domain dcat:Dataset)
+   (gnt:hashasExperimentDesign rdfs:label "Experiment Design")
+   (gnt:hashasExperimentDesign a owl:ObjectProperty)
+   (gnt:hashasExperimentDesign skos:definition "Experiment Design for this resource")
+   (gnt:hasTissueInfo rdfs:domain dcat:Dataset)
+   (gnt:hasTissueInfo rdfs:label "Tissue Information")
+   (gnt:hasTissueInfo a owl:ObjectProperty)
+   (gnt:hasTissueInfo skos:definition "Tissue information about dataset")
    (gnt:hasExperimentType skos:definition "Information about the experiment type")
    (gnt:hasAcknowledgement rdfs:domain dcat:Dataset)
    (gnt:hasAcknowledgement rdfs:label "Acknowledgement")
@@ -206,6 +226,162 @@
                              ;; If AvgMethodName is NULL, assume N/A.
                              (if (string-blank? (field AvgMethod Name AvgMethodName))
                                  "N/A" (field AvgMethod Name AvgMethodName))))
+    (set gnt:hasSummary
+         (let* ((summary-link
+                 (format
+                  #f "<https://git.genenetwork.org/gn-docs/tree/general/datasets/~a/summary.rtf>"
+                  (string-capitalize-first
+                   (regexp-substitute/global
+                    #f "[^A-Za-z0-9:]"
+                    (field InfoFiles InfoPageName)
+                    'pre "_" 'post))))
+                (summary
+                 (field InfoFiles Summary)))
+           (if (or (null? summary) (string-blank? summary))
+               "" (string->symbol summary-link))))
+    (set gnt:hasTissueInfo
+         (let* ((tissue-info-link
+                 (format
+                  #f "<https://git.genenetwork.org/gn-docs/tree/general/datasets/~a/tissue.rtf>"
+                  (string-capitalize-first
+                   (regexp-substitute/global
+                    #f "[^A-Za-z0-9:]"
+                    (field InfoFiles InfoPageName)
+                    'pre "_" 'post))))
+                (tissue-info
+                 (field Datasets AboutTissue)))
+           (if (or (null? tissue-info) (string-blank? tissue-info))
+               "" (string->symbol tissue-info-link))))
+    (set gnt:hasCitation
+         (let* ((citation-link
+                 (format
+                  #f "<https://git.genenetwork.org/gn-docs/tree/general/datasets/~a/citation.rtf>"
+                  (string-capitalize-first
+                   (regexp-substitute/global
+                    #f "[^A-Za-z0-9:]"
+                    (field InfoFiles InfoPageName)
+                    'pre "_" 'post))))
+                (citation
+                 (field Datasets Citation)))
+           (if (or (null? citation) (string-blank? citation))
+               "" (string->symbol citation-link))))
+    (set gnt:hasSpecifics
+         (let* ((specifics-link
+                 (format
+                  #f "<https://git.genenetwork.org/gn-docs/tree/general/datasets/~a/specifics.rtf>"
+                  (string-capitalize-first
+                   (regexp-substitute/global
+                    #f "[^A-Za-z0-9:]"
+                    (field InfoFiles InfoPageName)
+                    'pre "_" 'post))))
+                (specifics
+                 (field InfoFiles Specifics)))
+           (if (or (null? specifics) (string-blank? specifics))
+               "" (string->symbol specifics-link))))
+    (set gnt:hasCaseInfo
+         (let* ((cases-link
+                 (format
+                  #f "<https://git.genenetwork.org/gn-docs/tree/general/datasets/~a/cases.rtf>"
+                  (string-capitalize-first
+                   (regexp-substitute/global
+                    #f "[^A-Za-z0-9:]"
+                    (field InfoFiles InfoPageName)
+                    'pre "_" 'post))))
+                (cases
+                 (field Datasets AboutCases)))
+           (if (or (null? cases) (string-blank? cases))
+               "" (string->symbol cases-link))))
+    (set gnt:hasPlatformInfo
+         (let* ((platform-link
+                 (format
+                  #f "<https://git.genenetwork.org/gn-docs/tree/general/datasets/~a/platform.rtf>"
+                  (string-capitalize-first
+                   (regexp-substitute/global
+                    #f "[^A-Za-z0-9:]"
+                    (field InfoFiles InfoPageName)
+                    'pre "_" 'post))))
+                (platform
+                 (field Datasets AboutPlatform)))
+           (if (or (null? platform) (string-blank? platform))
+               "" (string->symbol platform-link))))
+    (set gnt:hasDataProcessingInfo
+         (let* ((processing-link
+                 (format
+                  #f "<https://git.genenetwork.org/gn-docs/tree/general/datasets/~a/processing.rtf>"
+                  (string-capitalize-first
+                   (regexp-substitute/global
+                    #f "[^A-Za-z0-9:]"
+                    (field InfoFiles InfoPageName)
+                    'pre "_" 'post))))
+                (processing
+                 (field Datasets AboutDataProcessing)))
+           (if (or (null? processing) (string-blank? processing))
+               "" (string->symbol processing-link))))
+    (set gnt:hasNotes
+         (let* ((notes-link
+                 (format
+                  #f "<https://git.genenetwork.org/gn-docs/tree/general/datasets/~a/notes.rtf>"
+                  (string-capitalize-first
+                   (regexp-substitute/global
+                    #f "[^A-Za-z0-9:]"
+                    (field InfoFiles InfoPageName)
+                    'pre "_" 'post))))
+                (notes
+                 (field Datasets Notes)))
+           (if (or (null? notes) (string-blank? notes))
+               "" (string->symbol notes-link))))
+    (set gnt:hasExperimentType
+         (let* ((experiment-type-link
+                 (format
+                  #f "<https://git.genenetwork.org/gn-docs/tree/general/datasets/~a/experiment-type.rtf>"
+                  (string-capitalize-first
+                   (regexp-substitute/global
+                    #f "[^A-Za-z0-9:]"
+                    (field InfoFiles InfoPageName)
+                    'pre "_" 'post))))
+                (experiment-type
+                 (field InfoFiles Experiment_Type)))
+           (if (or (null? experiment-type) (string-blank? experiment-type))
+               "" (string->symbol experiment-type-link))))
+    (set gnt:hasExperimentDesign
+         (let* ((experiment-design-link
+                 (format
+                  #f "<https://git.genenetwork.org/gn-docs/tree/general/datasets/~a/experiment-design.rtf>"
+                  (string-capitalize-first
+                   (regexp-substitute/global
+                    #f "[^A-Za-z0-9:]"
+                    (field InfoFiles InfoPageName)
+                    'pre "_" 'post))))
+                (experiment-design
+                 (field Datasets ExperimentDesign)))
+           (if (or (null? experiment-design) (string-blank? experiment-design))
+               "" (string->symbol experiment-design-link))))
+    (set gnt:hasContributors
+         (let* ((contributors-link
+                 (format
+                  #f "<https://git.genenetwork.org/gn-docs/tree/general/datasets/~a/contributors.rtf>"
+                  (string-capitalize-first
+                   (regexp-substitute/global
+                    #f "[^A-Za-z0-9:]"
+                    (field InfoFiles InfoPageName)
+                    'pre "_" 'post))))
+                (contributors
+                 (field Datasets Contributors)))
+           (if (or (null? contributors) (string-blank? contributors))
+               "" (string->symbol contributors-link))))
+    (set gnt:hasAcknowledgement
+         (let* ((acknowledgment-link
+                 (format
+                  #f "<https://git.genenetwork.org/gn-docs/tree/general/datasets/~a/acknowledgment.rtf>"
+                  (string-capitalize-first
+                   (regexp-substitute/global
+                    #f "[^A-Za-z0-9:]"
+                    (field InfoFiles InfoPageName)
+                    'pre "_" 'post))))
+                (acknowledgment
+                 (field Datasets Acknowledgment)))
+           (if (or (null? acknowledgment) (string-blank? acknowledgment))
+               "" (string->symbol acknowledgment-link))))
     (set gnt:usesPlatform
          (string->identifier "platform"
                              (field GeneChip Name GeneChip)))