add 'add_editor_airtable_data' fn for #7

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: dashboard
 Title: What the Package Does (One Line, Title Case)
-Version: 0.0.7.003
+Version: 0.0.7.004
 Authors@R: 
   person(given = "First",
          family = "Last",

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+export(add_editor_airtable_data)
 export(editor_status)
 export(editor_vacation_status)
 export(review_status)

R/editors-airtable.R

@@ -32,3 +32,32 @@ editor_vacation_status <- function () {
     editors_on_vacation <- edvac$github [which (edvac$away)]
     ed_status$status [ed_status$editor %in% editors_on_vacation] <- "ON LEAVE"
 }
+
+#' Add additional columns to 'editors' data from rOpenSci's airtable database.
+#'
+#' @param editors The `data.frame` of editors returned as the "status" component
+#' from \link{editor_status}.
+#' @return A modified version of `editors` with additional columns.
+#' @export
+add_editor_airtable_data <- function (editors) {
+    rev_prod <- airtabler::airtable (
+        base = "app8dssb6a7PG6Vwj", table = "reviewers-prod"
+    )
+    fields <- list ("github", "name", "other_langs", "domain_expertise")
+    rev_prod <- rev_prod$`reviewers-prod`$select_all (fields = fields)
+
+    editors$other_langs <- editors$domain_expertise <- NA_character_
+    index <- match (editors$editor, rev_prod$github)
+
+    editors$other_langs <- rev_prod$other_langs [index]
+    editors$other_langs <- vapply (editors$other_langs, function (i) {
+        paste0 (i [which (!i == "English")], collapse = ", ")
+    }, character (1L))
+
+    editors$domain_expertise <- rev_prod$domain_expertise [index]
+    editors$domain_expertise <- vapply (editors$domain_expertise, function (i) {
+        paste0 (i [which (!grepl ("^Other", i))], collapse = ", ")
+    }, character (1L))
+
+    return (editors)
+}

codemeta.json

@@ -6,7 +6,7 @@
   "name": "dashboard: What the Package Does (One Line, Title Case)",
   "codeRepository": "https://github.com/ropensci-review-tools/dashboard",
   "license": "https://spdx.org/licenses/MIT",
-  "version": "0.0.7.003",
+  "version": "0.0.7.004",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",