#403 dictionary handlers

Author: eblondel

R/geoflow_handler_dictionary.R

@@ -11,37 +11,10 @@
 #' @export
 #'
 register_dictionary_handlers <- function(){
-  handlers <- list(
-    geoflow_handler$new(
-      id = "csv",
-      def = "Handle dictionary from a CSV file",
-      fun = source(system.file("metadata/dictionary", "dictionary_handler_csv.R", package = "geoflow"))$value
-    ),
-    geoflow_handler$new(
-      id = "excel",
-      def = "Handle dictionary from a Microsoft Excel (xls,xlsx) file",
-      packages = list("readxl"),
-      fun = source(system.file("metadata/dictionary", "dictionary_handler_excel.R", package = "geoflow"))$value
-    ),
-    geoflow_handler$new(
-      id = "gsheet",
-      def = "Handle dictionary from a Google spreadsheet",
-      packages = list("gsheet"),
-      fun = source(system.file("metadata/dictionary", "dictionary_handler_gsheet.R", package = "geoflow"))$value
-    ),
-    geoflow_handler$new(
-      id = "dbi",
-      def = "Handle dictionary from a DB source",
-      packages = list("DBI", "RSQLite", "RPostgres"),
-      fun = source(system.file("metadata/dictionary", "dictionary_handler_dbi.R", package = "geoflow"))$value
-    ),
-    geoflow_handler$new(
-      id = "ocs",
-      def = "Handle dictionary from a tabulat data source (csv or excel) hosted on an OCS cloud",
-      packages = list("ocs4R"),
-      fun = source(system.file("metadata/dictionary", "dictionary_handler_ocs.R", package = "geoflow"))$value
-    )
-  )
+  yml_files = list.files(system.file("metadata/dictionary", package = "geoflow"), pattern = "yml")
+  handlers <- lapply(yml_files, function(file){
+    geoflow_handler$new(yaml = system.file("metadata/dictionary", file, package = "geoflow"))
+  })
   .geoflow$dictionary_handlers <- handlers
 }
 

inst/metadata/dictionary/dictionary_handler_csv.yml

@@ -0,0 +1,15 @@
+id: csv
+type: dictionary
+fun: dictionary_handler_csv.R
+funders: []
+authors:
+  - name: Emmanuel Blondel
+    email: [email protected]
+maintainer:
+  name: Emmanuel Blondel
+  email: [email protected]
+def: Handle dictionary from a CSV file
+status: stable
+packages:
+  - readr
+available_options: []

inst/metadata/dictionary/dictionary_handler_dbi.yml

@@ -0,0 +1,18 @@
+id: dbi
+type: dictionary
+fun: dictionary_handler_dbi.R
+funders: []
+authors:
+  - name: Emmanuel Blondel
+    email: [email protected]
+maintainer:
+  name: Emmanuel Blondel
+  email: [email protected]
+def: Handle dictionary from a DB source
+status: stable
+packages:
+  - DBI
+  - RSQLite
+  - RPostgres
+  - RPostgreSQL
+available_options: []

inst/metadata/dictionary/dictionary_handler_excel.yml

@@ -0,0 +1,15 @@
+id: excel
+type: dictionary
+fun: dictionary_handler_excel.R
+funders: []
+authors:
+  - name: Emmanuel Blondel
+    email: [email protected]
+maintainer:
+  name: Emmanuel Blondel
+  email: [email protected]
+def: Handle dictionary from a Microsoft Excel (xls,xlsx) file
+status: stable
+packages:
+  - readxl
+available_options: []

inst/metadata/dictionary/dictionary_handler_gsheet.yml

@@ -0,0 +1,15 @@
+id: gsheet
+type: dictionary
+fun: dictionary_handler_gsheet.R
+funders: []
+authors:
+  - name: Emmanuel Blondel
+    email: [email protected]
+maintainer:
+  name: Emmanuel Blondel
+  email: [email protected]
+def: Handle dictionary from a Google spreadsheet
+status: stable
+packages:
+  - gsheet
+available_options: []

inst/metadata/dictionary/dictionary_handler_ocs.yml

@@ -0,0 +1,19 @@
+id: ocs
+type: dictionary
+fun: dictionary_handler_ocs.R
+funders:
+  - name: INRAE
+    url: https://www.inrae.fr
+authors:
+  - name: Emmanuel Blondel
+    email: [email protected]
+maintainer:
+  name: Emmanuel Blondel
+  email: [email protected]
+def: Handle dictionary from a tabulat data source (csv or excel) hosted on an OCS cloud
+status: stable
+packages:
+  - ocs4R
+  - rear
+  - readxl
+available_options: []