diff options
| author | Munyoki Kilyungi | 2024-07-15 09:08:06 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2024-07-15 09:08:06 +0300 |
| commit | d95501bd2bd41ef8cf3584118382e83cbbbe0c87 (patch) | |
| tree | e25f357c75e34d051bda3ad929f0704b55647c53 | |
| parent | f9c0a5f97312a670b1248ec5ecb8c207b58bbaf9 (diff) | |
| download | gn-transform-databases-d95501bd2bd41ef8cf3584118382e83cbbbe0c87.tar.gz | |
Add missing RIF symbols.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
| -rwxr-xr-x | examples/generif.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/examples/generif.scm b/examples/generif.scm index fb3208a..b6a1e2c 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -45,6 +45,19 @@ (set rdfs:label (field GeneRIF_BASIC symbol)))) +(define-transformer generif-symbols + (tables (GeneRIF) + "WHERE symbol NOT IN (SELECT symbol from GeneRIF_BASIC) GROUP BY BINARY symbol") + (triples + (string->identifier + "symbol" + (regexp-substitute/global #f "[^A-Za-z0-9:]" + (field GeneRIF symbol) + 'pre "_" 'post) + #:proc (lambda (x) x)) + (set rdfs:label + (field GeneRIF symbol)))) + (define-transformer gn-genewiki-entries (tables (GeneRIF (left-join Species "ON Species.SpeciesId = GeneRIF.SpeciesId") @@ -219,6 +232,7 @@ (inputs (list genewiki-symbols + generif-symbols gn-genewiki-entries ncbi-genewiki-entries)) (outputs |