diff options
| author | Munyoki Kilyungi | 2023-11-17 11:26:54 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2023-11-17 11:26:54 +0300 |
| commit | 13ee5888fddba915d1b101aa403b7393c2ccb3ba (patch) | |
| tree | f9c508ac387a3d580d0a7485a3948cd61893a219 | |
| parent | 2df9eb5a6adf15ddb19d4f00f1bc5a1c35f492c7 (diff) | |
| download | gn-transform-databases-13ee5888fddba915d1b101aa403b7393c2ccb3ba.tar.gz | |
Capitalize InbredSetName id's consistently.
| -rwxr-xr-x | examples/classification.scm | 8 | ||||
| -rwxr-xr-x | examples/dataset-metadata.scm | 14 |
2 files changed, 16 insertions, 6 deletions
diff --git a/examples/classification.scm b/examples/classification.scm index 8eb440a..73fad2b 100755 --- a/examples/classification.scm +++ b/examples/classification.scm @@ -63,7 +63,9 @@ (triples "gnc:Set" (set skos:member (string->identifier - "set" (field InbredSet Name InbredSetName))))) + "set" (field InbredSet Name InbredSetName) + #:separator "" + #:proc string-capitalize-first)))) (define-transformer species (tables (Species @@ -104,7 +106,9 @@ (gnt:mappingMethod a owl:ObjectProperty) (gnt:mappingMethod rdfs:domain gnc:set)) (triples (string->identifier - "set" (field InbredSet Name InbredSetName)) + "set" (field InbredSet Name InbredSetName) + #:separator "" + #:proc string-capitalize-first) (set skos:inScheme 'gnc:ResourceClassificationScheme) (set rdfs:label (field InbredSet FullName)) (set skos:prefLabel (field InbredSet Name InbredSetName)) diff --git a/examples/dataset-metadata.scm b/examples/dataset-metadata.scm index 26ca7f2..2dba37f 100755 --- a/examples/dataset-metadata.scm +++ b/examples/dataset-metadata.scm @@ -257,7 +257,7 @@ 'pre "_" 'post)) (set rdf:type 'dcat:Dataset) (set xkos:classifiedUnder 'gnc:Phenotype) - (set dct:title (field PublishFreeze FullName)) + (set dct:title (field PublishFreeze FullName)) (set rdfs:label (field PublishFreeze Name)) (set skos:altLabel (field PublishFreeze ShortName)) (set dct:created (annotate-field @@ -265,7 +265,9 @@ '^^xsd:date)) (set xkos:classifiedUnder (string->identifier - "set" (field InbredSet Name InbredSetName))))) + "set" (field InbredSet Name InbredSetName) + #:separator "" + #:proc string-capitalize-first)))) (define-transformer genofreeze (tables (GenoFreeze @@ -292,7 +294,9 @@ '^^xsd:date)) (set xkos:classifiedUnder (string->identifier - "set" (field InbredSet Name InbredSetName))))) + "set" (field InbredSet Name InbredSetName) + #:separator "" + #:proc string-capitalize-first)))) ;; Molecular Traits are also referred to as ProbeSets (define-transformer probesetfreeze @@ -336,7 +340,9 @@ (field Tissue Short_Name))) (set xkos:classifiedUnder (string->identifier - "set" (field InbredSet Name InbredSetName))))) + "set" (field InbredSet Name InbredSetName) + #:separator "" + #:proc string-capitalize-first)))) |