diff options
| author | Munyoki Kilyungi | 2023-08-28 14:29:12 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2023-08-28 14:29:26 +0300 |
| commit | 69800ab334600c464e11cb26ea7f142c42e0fe90 (patch) | |
| tree | 3da8c74caa68d2b63d24d8f8040aa0efe80c4279 /examples/strains.scm | |
| parent | 8c9da8e40fe211984191caa22e3849fc4c8e954e (diff) | |
| download | gn-transform-databases-69800ab334600c464e11cb26ea7f142c42e0fe90.tar.gz | |
Update how strains are dumped
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/strains.scm')
| -rwxr-xr-x | examples/strains.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/examples/strains.scm b/examples/strains.scm index e7a0032..44a0e87 100755 --- a/examples/strains.scm +++ b/examples/strains.scm @@ -86,7 +86,7 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used. #:proc string-capitalize-first)) ;; Name, and maybe a second name (set rdfs:label (sanitize-rdf-string (field Strain Name))) - (set rdfs:label (sanitize-rdf-string (field ("IF ((Strain.Name2 != Strain.Name), Strain.Name2, '')" Name2)))) + (set skos:altLabel (sanitize-rdf-string (field ("IF ((Strain.Name2 != Strain.Name), Strain.Name2, '')" Name2)))) (set gnt:alias (sanitize-rdf-string (field ("IF ((Strain.Alias != Strain.Name), Strain.Alias, '')" Alias)))) (set gnt:symbol (field ("IF ((Strain.Symbol != Strain.Name), Strain.Symbol, '')" Symbol))))) @@ -94,7 +94,7 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used. (tables (MappingMethod)) (schema-triples (gnc:mappingMethod a skos:Concept) - (gnc:mappingMethod skos:definition "Terms that decribe mapping/normalization methods used in GeneNetwork")) + (gnc:mappingMethod skos:definition "Terms that decribe mapping methods used on this resource")) (triples (string->identifier "mappingMethod" (field MappingMethod Name)) (set rdf:type 'gnc:mappingMethod) @@ -105,8 +105,9 @@ At this point it is not very clear how Name, Name2, Symbol and Alias are used. ;; the Name field. (tables (AvgMethod)) (schema-triples - (gnc:avgMethod rdf:type owl:Class)) - (triples (string->identifier "avgmethod" (field AvgMethod Name)) + (gnc:avgMethod a skos:Concept) + (gnc:avgMethod skos:definition "Terms that decribe normalization methods used on this resource")) + (triples (string->identifier "avgMethod" (field AvgMethod Name)) (set rdf:type 'gnc:avgMethod) (set rdfs:label (field AvgMethod Normalization)))) |