diff options
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"))) |