diff options
| author | Munyoki Kilyungi | 2025-12-23 14:00:09 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2026-01-13 12:02:50 +0300 |
| commit | 25f1f56a3ab2e76895dfb0268530fc6de291fc98 (patch) | |
| tree | 3b6f6e2c0c325a89274f445c86204226de9900ff /examples/classification.scm | |
| parent | 6a44a8b1c1094227feb1f09370d2ec60f4867b68 (diff) | |
| download | gn-transform-databases-25f1f56a3ab2e76895dfb0268530fc6de291fc98.tar.gz | |
Update how the species/inbredsets are transformed.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/classification.scm')
| -rwxr-xr-x | examples/classification.scm | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/examples/classification.scm b/examples/classification.scm index 3e13a92..279dc86 100755 --- a/examples/classification.scm +++ b/examples/classification.scm @@ -39,7 +39,7 @@ (gnc:species xkos:specializes gnc:set)) (triples "gnc:species" (set skos:member - (string->identifier "" (remap-species-identifiers (field Species Fullname)) + (string->identifier "species" (remap-species-identifiers (field Species Fullname)) #:separator "_" #:proc string-downcase)))) @@ -54,8 +54,7 @@ (set skos:member (string->identifier "set" (field InbredSet Name InbredSetName) - #:separator "_" - #:proc (lambda (x) x))))) + #:separator "_")))) (define-transformer species (tables (Species)) @@ -70,7 +69,7 @@ (gnt:belongs_to_species rdf:comment "This resource given to this species") (gnt:belongs_to_species rdf:label "belongsToSpecies")) (triples - (string->identifier "" (remap-species-identifiers (field Species Fullname)) + (string->identifier "species" (remap-species-identifiers (field Species Fullname)) #:separator "_" #:proc string-downcase) (set skos:inScheme 'gnc:resource_classification_scheme) @@ -102,8 +101,7 @@ (gnt:belongs_to_group rdf:label "belongs_to_group")) (triples (string->identifier "set" (field InbredSet Name InbredSetName) - #:separator "_" - #:proc (lambda (x) x)) + #:separator "_") (set skos:inScheme 'gnc:resource_classification_scheme) (set rdfs:label (field InbredSet FullName)) (set skos:prefLabel (field InbredSet Name InbredSetName)) @@ -112,9 +110,9 @@ (set gnt:mapping_method (field MappingMethod Name)) (set gnt:code (field InbredSet InbredSetCode)) (set xkos:generalizes - (string->identifier "" (remap-species-identifiers (field Species Fullname)) - #:separator "_" - #:proc string-downcase)))) + (string->identifier "species" (remap-species-identifiers (field Species Fullname)) + #:separator "_" + #:proc string-downcase)))) |