diff options
| -rwxr-xr-x | examples/dump-dataset-metadata.scm | 7 | ||||
| -rwxr-xr-x | examples/dump-phenotype.scm | 7 |
2 files changed, 11 insertions, 3 deletions
diff --git a/examples/dump-dataset-metadata.scm b/examples/dump-dataset-metadata.scm index aa7a5f2..e4f8334 100755 --- a/examples/dump-dataset-metadata.scm +++ b/examples/dump-dataset-metadata.scm @@ -130,8 +130,10 @@ (gn:contributors rdfs:range rdfs:Literal) (gn:citation rdfs:range rdfs:Literal) (gn:acknowledgment rdfs:range rdfs:Literal)) - (triples (string->identifier "dataset" - (field InfoFiles InfoPageName)) + (triples (ontology 'dataset: + (regexp-substitute/global #f "[^A-Za-z0-9:]" + (field InfoFiles InfoPageName) + 'pre "_" 'post)) ;; Add GeneChipName and GeoPlatform: ;; GeneChip.GeneChipName AS gene_chip_name ;; GeneChip.GeoPlatform AS geo_platform @@ -214,6 +216,7 @@ (prefix "uniprot:" "<http://purl.uniprot.org/uniprot/>") (prefix "up:" "<http://purl.uniprot.org/core/>") (prefix "xsd:" "<http://www.w3.org/2001/XMLSchema#>") + (prefix "dataset:" "<http://genenetwork.org/dataset/>") (newline) (dump-info-files db) (dump-investigators db)) diff --git a/examples/dump-phenotype.scm b/examples/dump-phenotype.scm index 242e835..08d5127 100755 --- a/examples/dump-phenotype.scm +++ b/examples/dump-phenotype.scm @@ -89,7 +89,11 @@ (set gn:LRS (annotate-field (field ("IFNULL(PublishXRef.LRS, '')" lrs)) '^^xsd:float)) (set gn:additive (annotate-field (field ("IFNULL(PublishXRef.additive, '')" additive)) '^^xsd:decimal)) (set gn:sequence (annotate-field (field PublishXRef Sequence) '^^xsd:int)) - (set gn:phenotypeOfDataset (string->identifier "dataset" (field PublishFreeze Name))) + (set gn:phenotypeOfDataset + (ontology 'dataset: + (regexp-substitute/global #f "[^A-Za-z0-9:]" + (field PublishFreeze Name) + 'pre "_" 'post))) (set gn:phenotypeOfPublication (let ((pmid (field ("IF(Publication.PubMed_ID IS NULL, '', CONVERT(Publication.PubMed_Id, INT))" @@ -127,6 +131,7 @@ (prefix "uniprot:" "<http://purl.uniprot.org/uniprot/>") (prefix "up:" "<http://purl.uniprot.org/core/>") (prefix "xsd:" "<http://www.w3.org/2001/XMLSchema#>") + (prefix "dataset:" "<http://genenetwork.org/dataset/>") (newline) (dump-publishfreeze db) (dump-phenotypes db)) |