diff options
| -rwxr-xr-x | examples/dataset-metadata.scm | 176 |
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))) |