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