diff options
author | Munyoki Kilyungi | 2023-08-21 14:41:23 +0300 |
---|---|---|
committer | Munyoki Kilyungi | 2023-08-21 14:41:23 +0300 |
commit | add95e737f61fdf3e8f244dd7ebedca963514bb7 (patch) | |
tree | 667b16a1a9081b4fc445b4c6cf1c2caa76a4f1ab /examples/dump-genotype.scm | |
parent | e25db8edf8615f59d0682841fde8d43367ebfa53 (diff) | |
download | gn-transform-databases-add95e737f61fdf3e8f244dd7ebedca963514bb7.tar.gz |
Move dumps related to datasets to one place
* examples/dump-dataset-metadata.scm: Add dump-gene-chip,
dump-publishfreeze, dump-genofreeze, dump-probesetfreeze
* examples/dump-genotype.scm: Delete dump-genofreeze.
* examples/dump-phenotype.scm: Delete dump-publishfreeze.
* examples/dump-probesetfreeze.scm: Delete file
Diffstat (limited to 'examples/dump-genotype.scm')
-rwxr-xr-x | examples/dump-genotype.scm | 34 |
1 files changed, 1 insertions, 33 deletions
diff --git a/examples/dump-genotype.scm b/examples/dump-genotype.scm index 04f1af0..30e7796 100755 --- a/examples/dump-genotype.scm +++ b/examples/dump-genotype.scm @@ -30,37 +30,6 @@ ["Bat (Glossophaga soricina)" "Glossophaga soricina"] [str str])) -(define-dump dump-genofreeze - (tables (GenoFreeze - (left-join InfoFiles "ON InfoFiles.InfoPageName = GenoFreeze.Name") - (left-join InbredSet "ON GenoFreeze.InbredSetId = InbredSet.InbredSetId")) - "WHERE GenoFreeze.public > 0 AND GenoFreeze.confidentiality < 1 AND InfoFiles.InfoPageName IS NULL") - (triples - (string->identifier - "" - (regexp-substitute/global - #f "[^A-Za-z0-9:]" - (regexp-substitute/global - #f "[^A-Za-z0-9:]" - (field GenoFreeze Name) - 'pre "_" 'post) - 'pre "_" 'post) - #:separator "" - #:proc string-capitalize-first) - (set rdf:type 'gnc:genotypeDataset) - (set rdfs:label (field GenoFreeze Name)) - (set skos:prefLabel (field GenoFreeze FullName)) - (set skos:altLabel (field GenoFreeze ShortName)) - (set dct:created (annotate-field - (field GenoFreeze CreateTime) - '^^xsd:date)) - (set gnt:belongsToSet - (string->identifier - "inbredSet" (field InbredSet Name) - #:separator "" - #:proc string-capitalize-first)))) - - (define-dump dump-genotypes (tables (Geno (left-join Species "USING (SpeciesId)"))) @@ -149,8 +118,7 @@ ("skos:" "<http://www.w3.org/2004/02/skos/core#>") ("xsd:" "<http://www.w3.org/2001/XMLSchema#>"))) (inputs - (list dump-genofreeze - dump-genotypes)) + (list dump-genotypes)) (outputs '(#:documentation "./docs/dump-genotype.md" #:rdf "/export/data/genenetwork-virtuoso/dump-genotype.ttl"))) |