Move investigators transform to its own file.

* examples/dataset-metadata.scm (investigators): Delete.
(option-spec)[investigators]: Delete
* transform/strings.scm (fix-email-id, investigator-attributes->id):
Move these ...
* examples/investigators.scm: ... here.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>

1 files changed, 0 insertions, 23 deletions

diff --git a/examples/dataset-metadata.scm b/examples/dataset-metadata.scm
index 783b90c..38dac9c 100755
--- a/examples/dataset-metadata.scm
+++ b/examples/dataset-metadata.scm
@@ -12,27 +12,6 @@
              (transform special-forms))
 
 
-(define-transformer investigators
-  ;; There are a few duplicate entries. We group by email to
-  ;; deduplicate.
-  (tables (Investigators)
-          "GROUP BY Email")
-  (triples (investigator-attributes->id (field Investigators FirstName)
-                                        (field Investigators LastName)
-                                        "")
-    (set rdf:type 'foaf:Person)
-    (set foaf:name (string-append (field Investigators FirstName) " "
-                                  (field Investigators LastName)))
-    (set foaf:givenName
-         (field Investigators FirstName))
-    (set foaf:familyName
-         (field Investigators LastName))
-    (set foaf:homepage (field Investigators Url))
-    (set v:adr (field Investigators Address))
-    (set v:locality (field Investigators City))
-    (set v:region (field Investigators State))
-    (set v:postal-code (field Investigators ZipCode))
-    (set v:country-name (field Investigators Country))))
 
 (define-transformer gene-chip
   (tables (GeneChip
@@ -406,7 +385,6 @@
           #:separator "_"
           #:proc (lambda (x) x)))))
 
-;; Molecular Traits are also referred to as ProbeSets
 (define-transformer probesetfreeze
   (tables (ProbeSetFreeze
            (left-join InfoFiles "ON InfoFiles.InfoPageName = ProbeSetFreeze.Name")
@@ -478,7 +456,6 @@
           publishfreeze
           genofreeze
           probesetfreeze
-          investigators
           gene-chip))
    (outputs
     `(#:documentation ,documentation