about summary refs log tree commit diff
path: root/examples/dump-dataset-metadata.scm
diff options
context:
space:
mode:
Diffstat (limited to 'examples/dump-dataset-metadata.scm')
-rwxr-xr-xexamples/dump-dataset-metadata.scm12
1 files changed, 6 insertions, 6 deletions
diff --git a/examples/dump-dataset-metadata.scm b/examples/dump-dataset-metadata.scm
index a127e57..6173201 100755
--- a/examples/dump-dataset-metadata.scm
+++ b/examples/dump-dataset-metadata.scm
@@ -34,7 +34,7 @@
                        (list first-name last-name (fix-email-id email))
                        "_")))
 
-(define-dump dump-investigators
+(define-transformer dump-investigators
   ;; There are a few duplicate entries. We group by email to
   ;; deduplicate.
   (tables (Investigators)
@@ -56,7 +56,7 @@
     (set v:postal-code (field Investigators ZipCode))
     (set v:country-name (field Investigators Country))))
 
-(define-dump dump-gene-chip
+(define-transformer dump-gene-chip
   (tables (GeneChip
            (left-join Species "USING (SpeciesId)")))
   (schema-triples
@@ -87,7 +87,7 @@
          (ontology 'geoSeries:
                    (string-trim-both (field GeneChip GeoPlatform))))))
 
-(define-dump dump-info-files
+(define-transformer dump-info-files
   (tables (InfoFiles
            (left-join PublishFreeze "ON InfoFiles.InfoPageName = PublishFreeze.Name")
            (left-join GenoFreeze "ON InfoFiles.InfoPageName = GenoFreeze.Name")
@@ -251,7 +251,7 @@
                                  (field Datasets Acknowledgment)))))
 
 ;; These are phenotype datasets that don't have Infofile metadata
-(define-dump dump-publishfreeze
+(define-transformer dump-publishfreeze
   (tables (PublishFreeze
            (left-join InfoFiles "ON InfoFiles.InfoPageName = PublishFreeze.Name")
            (left-join InbredSet "ON PublishFreeze.InbredSetId = InbredSet.InbredSetId"))
@@ -277,7 +277,7 @@
           #:separator ""
           #:proc string-capitalize-first))))
 
-(define-dump dump-genofreeze
+(define-transformer dump-genofreeze
   (tables (GenoFreeze
            (left-join InfoFiles "ON InfoFiles.InfoPageName = GenoFreeze.Name")
            (left-join InbredSet "ON GenoFreeze.InbredSetId = InbredSet.InbredSetId"))
@@ -308,7 +308,7 @@
             #:proc string-capitalize-first))))
 
 ;; Molecular Traits are also referred to as ProbeSets
-(define-dump dump-probesetfreeze
+(define-transformer dump-probesetfreeze
   (tables (ProbeSetFreeze
            (left-join InfoFiles "ON InfoFiles.InfoPageName = ProbeSetFreeze.Name")
            (left-join ProbeFreeze "USING (ProbeFreezeId)")