aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMunyoki Kilyungi2026-02-03 10:38:20 +0300
committerMunyoki Kilyungi2026-02-03 10:38:20 +0300
commit9b02f0bf22276bc257a724ea93831f8f813a8e03 (patch)
tree1411bd95b4bfdb3c7c1a4607ecbfedf5e92da38b
parentb4907a5cfc10f3ea33b702dca8cccb9984753cf7 (diff)
downloadgn-transform-databases-9b02f0bf22276bc257a724ea93831f8f813a8e03.tar.gz
Update phenotypes.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
-rwxr-xr-xexamples/phenotype.scm16
1 files changed, 14 insertions, 2 deletions
diff --git a/examples/phenotype.scm b/examples/phenotype.scm
index 0fba2c1..74fee63 100755
--- a/examples/phenotype.scm
+++ b/examples/phenotype.scm
@@ -30,7 +30,7 @@
dataset_name))
#\,)))))
-(define-transformer gn:dataset->gn:trait
+(define-transformer gn:dataset->metadata
(tables (PublishXRef
(inner-join InbredSet "ON InbredSet.InbredSetId = PublishXRef.InbredSetId")
(inner-join Species "ON InbredSet.SpeciesId = Species.Id")
@@ -39,6 +39,18 @@
(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")
+ (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")
+ (triples (string->identifier "dataset" (field PublishFreeze Name) #:separator "_")
(set gnt:has_phenotype_trait
(let ((post-abbrev (blank-p (field Phenotype Post_publication_abbreviation)))
(pre-abbrev (blank-p (field Phenotype Pre_publication_abbreviation)))
@@ -187,7 +199,7 @@
("xkos:" "<http://rdf-vocabulary.ddialliance.org/xkos#>")
("pubmed:" "<http://rdf.ncbi.nlm.nih.gov/pubmed/>")))
(inputs
- (list gn:set->gn:dataset
+ (list gn:dataset->metadata
gn:dataset->gn:trait
gnc:phenotype->gn:phenotype
gn:phenotype->metadata