diff options
| -rwxr-xr-x | examples/phenotype-datasets.scm | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/examples/phenotype-datasets.scm b/examples/phenotype-datasets.scm index 4819627..c8657fc 100755 --- a/examples/phenotype-datasets.scm +++ b/examples/phenotype-datasets.scm @@ -27,27 +27,6 @@ dataset_name)) #\,))))) -(define-transformer gn:dataset->gn:set - (tables (Datasets - (inner-join InfoFiles "ON InfoFiles.DatasetId = Datasets.DatasetId") - (inner-join InbredSet "ON InbredSet.Id = InfoFiles.InbredSetId") - (inner-join PublishFreeze "ON PublishFreeze.InbredSetId = InbredSet.Id")) - "WHERE PublishFreeze.public > 0 GROUP BY Datasets.DatasetId") - (triples (string->identifier "dataset" (field PublishFreeze Name) #:separator "_") - (set gnt:has_strain (string->identifier "set" (field InbredSet Name InbredSetName) #:separator "_")))) - -(define-transformer gn:dataset->metadata - (tables (PublishXRef - (inner-join InbredSet "ON InbredSet.InbredSetId = PublishXRef.InbredSetId") - (inner-join Species "ON InbredSet.SpeciesId = Species.Id") - (inner-join PublishFreeze "ON PublishFreeze.InbredSetId = InbredSet.Id") - (inner-join Publication "ON Publication.Id = PublishXRef.PublicationId") - (inner-join Phenotype "ON Phenotype.Id = PublishXRef.PhenotypeId")) - "WHERE InbredSet.public > 0 GROUP BY Species.Name, PublishFreeze.Name") - (triples (string->identifier "dataset" (field PublishFreeze Name) #:separator "_") - (set dct:created (annotate-field (field PublishFreeze CreateTime) '^^xsd:datetime)) - (set gnt:has_strain (string->identifier "set" (field InbredSet Name InbredSetName) #:separator "_")))) - (define-transformer gn:dataset->gn:trait (tables (PublishXRef (inner-join InbredSet "ON InbredSet.InbredSetId = PublishXRef.InbredSetId") @@ -101,8 +80,6 @@ (inputs (list gn:set->gn:dataset - gn:dataset->gn:set - gn:dataset->metadata gn:dataset->gn:trait)) (outputs `(#:documentation ,documentation |