diff options
Diffstat (limited to 'examples/dataset-metadata.scm')
| -rwxr-xr-x | examples/dataset-metadata.scm | 30 |
1 files changed, 1 insertions, 29 deletions
diff --git a/examples/dataset-metadata.scm b/examples/dataset-metadata.scm index 38dac9c..23dd48e 100755 --- a/examples/dataset-metadata.scm +++ b/examples/dataset-metadata.scm @@ -12,33 +12,6 @@ (transform special-forms)) - -(define-transformer gene-chip - (tables (GeneChip - (left-join Species "USING (SpeciesId)"))) - (schema-triples - (gnc:gene_chip a skos:Concept) - (gnc:gene_chip - skos:description - "This is a set of controlled terms that are used to describe a given gene chip/platform") - (gnt:has_geo_series_id rdfs:domain gnc:platform) - (gnt:has_geo_series_id rdfs:domain gnc:gene_chip) - (gnt:has_go_tree_value a owl:ObjectProperty) - (gnt:has_go_tree_value skos:definition "This resource the following GO tree value") - (gnt:has_go_tree_value rdfs:domain gnc:gene_chip)) - (triples (string->identifier "platform" (field GeneChip Name) #:separator "_") - (set rdf:type 'gnc:gene_chip) - (set rdfs:label (field GeneChip GeneChipName)) - (set skos:prefLabel (field GeneChip Name)) - (set skos:altLabel (field ("IF(GeneChip.GeneChipName != GeneChip.Title, Title, NULL)" - Title))) - (set gnt:has_go_tree_value (field GeneChip Go_tree_value)) - (set xkos:classifiedUnder - (string->identifier "" (remap-species-identifiers (field Species Fullname)) #:separator "")) - (set gnt:has_geo_series_id - (ontology 'geoSeries: - (string-trim-both (field GeneChip GeoPlatform)))))) - (define-transformer info-files (tables (InfoFiles (left-join PublishFreeze "ON InfoFiles.InfoPageName = PublishFreeze.Name") @@ -455,8 +428,7 @@ (list info-files publishfreeze genofreeze - probesetfreeze - gene-chip)) + probesetfreeze)) (outputs `(#:documentation ,documentation #:rdf ,output)))) |