From e099f0c16ad2f22007f5c183550254af9e4f9077 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Mon, 20 Nov 2023 17:08:27 +0300 Subject: Add "gnt:belongsToSpecies" and "gnt:belongsToGroup" gn terms. These terms are useful when constructing a graph for framing purposes in json-ld. Signed-off-by: Munyoki Kilyungi --- examples/classification.scm | 18 ++++++++++++------ examples/dataset-metadata.scm | 2 +- 2 files changed, 13 insertions(+), 7 deletions(-) (limited to 'examples') diff --git a/examples/classification.scm b/examples/classification.scm index e3d9bb7..3024af6 100755 --- a/examples/classification.scm +++ b/examples/classification.scm @@ -75,11 +75,14 @@ (gnt:family skos:definition "This resource belongs to this family") (gnt:shortName a owl:ObjectProperty) (gnt:shortName rdfs:domain gnc:Species) - (gnt:shortName skos:definition "The short name of a given resource")) + (gnt:shortName skos:definition "The short name of a given resource") + (gnt:belongsToSpecies a rdf:property) + (gnt:belongsToSpecies rdf:comment "This resource given to this species") + (gnt:belongsToSpecies rdf:label "belongsToSpecies")) (triples (string->identifier "" (remap-species-identifiers (field Species Fullname)) - #:separator "" - #:proc string-capitalize-first) + #:separator "" + #:proc string-capitalize-first) (set skos:inScheme 'gnc:ResourceClassificationScheme) (set rdfs:label (remap-species-identifiers (field Species Fullname))) (set skos:prefLabel (field Species MenuName)) @@ -87,8 +90,8 @@ (set gnt:shortName (field Species Name)) (set gnt:family (field Species Family)) (set skos:notation (ontology - 'taxon: - (field Species TaxonomyId))))) + 'taxon: + (field Species TaxonomyId))))) (define-transformer inbred-set (tables (InbredSet @@ -103,7 +106,10 @@ ;; Already defined as an owl prop in species (gnt:family rdfs:domain gnc:Set) (gnt:mappingMethod a owl:ObjectProperty) - (gnt:mappingMethod rdfs:domain gnc:set)) + (gnt:mappingMethod rdfs:domain gnc:set) + (gnt:belongsToGroup a rdf:property) + (gnt:belongsToGroup rdf:comment "This resource given to this group") + (gnt:belongsToGroup rdf:label "belongsToGroup")) (triples (string->identifier "set" (field InbredSet Name InbredSetName) #:separator "" diff --git a/examples/dataset-metadata.scm b/examples/dataset-metadata.scm index 2dba37f..96488db 100755 --- a/examples/dataset-metadata.scm +++ b/examples/dataset-metadata.scm @@ -244,7 +244,7 @@ (field Datasets Acknowledgment))))) ;; These are phenotype datasets that don't have Infofile metadata -(define-transformer publishfreeze +(define-transformer pdct:isReferencedByublishfreeze (tables (PublishFreeze (left-join InfoFiles "ON InfoFiles.InfoPageName = PublishFreeze.Name") (left-join InbredSet "ON PublishFreeze.InbredSetId = InbredSet.InbredSetId")) -- cgit v1.2.3