aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xexamples/dataset-metadata.scm176
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)))