Merge pull request #639 from ropensci/editors

update readme editors list from airtable

README.Rmd

@@ -87,72 +87,107 @@ on how to improve the process on our [forum](https://discuss.ropensci.org/) and
 
 # <a href="#editors" name="editors"></a> Editors and reviewers
 
-### Associate editors
+rOpenSci's Software Peer Review process is run by our team of dedicated editors and reviewers.
+Information on the current team, and the current status of software peer review, can be seen on our [interactive dashboard](https://ropensci-review-tools.github.io/dashboard/).
 
-rOpenSci's Software Peer Review process is run by:
+```{r get-airtable-data, warning=FALSE, echo=FALSE}
+if (Sys.getenv("AIRTABLE_API_KEY") == ""){
+  Sys.setenv(AIRTABLE_API_KEY = params$AIRTABLE_API_KEY)
+}
+if (Sys.getenv("AIRTABLE_ID") == ""){
+  Sys.setenv(AIRTABLE_ID = params$AIRTABLE_ID)
+}
+
+at_eic <- airtabler::airtable(base = Sys.getenv("AIRTABLE_ID"),
+                              table = "editor-in-chief-rotation")
+eic <- at_eic$`editor-in-chief-rotation`$select_all()
+
+at_rev <- airtabler::airtable(base = Sys.getenv("AIRTABLE_ID"),
+                              table = "reviewers-prod")
+reviewers <- at_rev$`reviewers-prod`$select_all()
+
+at_guest <- airtabler::airtable(base = "app8dssb6a7PG6Vwj",
+                                 table = "guest-editors")
+guest_editors <- at_guest$`guest-editors`$select_all()
+```
+
+### Editor-in-Chief
+
+```{r eic, echo=FALSE, results='asis'}
+eic$period_start <- as.Date(eic$period_start)
+eic$period_end <- as.Date(eic$period_end)
+today <- Sys.Date ()
+eic_now <- eic [which (eic$period_start <= today & eic$period_end >= today), ]
+eic_name <- eic_now$acting_eic_name [[1]]
+eic_id <- eic_now$acting_eic
+eic_in_rev_table <- which(reviewers$id == eic_id)
+eic_github <- reviewers$github[eic_in_rev_table]
+
+out <- paste0(
+    "We rotate our Editor-in-Chief, generally every three months. ",
+    "Our current Editor-in-Chief is [", eic_name, "](https://github.com/",
+    eic_github, ").\n"
+)
+cat(out, sep = "")
+```
+
+
+### Editorial team
 
-* [Noam Ross](https://github.com/noamross), EcoHealth Alliance, USA;
-* [Karthik Ram](https://github.com/karthik), rOpenSci, USA;
-* [Maëlle Salmon](https://github.com/maelle), rOpenSci, France;
-* [Anna Krystalli](https://github.com/annakrystalli), University of Sheffield RSE, UK;
-* [Mauro Lepore](https://github.com/maurolepore), 2 Degrees Investing Initiative, USA;
-* [Laura DeCicco](https://github.com/ldecicco-USGS), USGS, USA;
-* [Julia Gustavsen](https://github.com/jooolia), Agroscope, Switzerland;
-* [Emily Riederer](https://github.com/emilyriederer), Capital One, USA;
-* [Adam Sparks](https://github.com/adamhsparks), Department of Primary Industries and Regional Development;
-* [Jeff Hollister](https://github.com/jhollist), US Environmental Protection Agency.
+```{r editors, echo=FALSE}
+editor_index_all <- purrr::map_lgl(reviewers$editor, ~!is.null(.))
+editors_all <- reviewers[which(editor_index_all), c("name", "github", "Affiliation", "editor")]
+editors_all <- editors_all [which(!editors_all$name == eic_name), ]
+last_names <- humaniformat::last_name(trimws(editors_all$name))
+editors_all <- editors_all[order(last_names), ]
 
-Associate editors for statistical software are:
+editors_past <- editors_all[grep("Emeritus", editors_all$editor), ]
+editors <- editors_all[which(!editors_all$name %in% editors_past$name), ]
+```
+
+Our current team of editors for software peer-review includes:
 
-- [Ben Bolker](https://github.com/bbolker), McMaster University, Canada;
-- [Rebecca Killick](https://github.com/rkillick), Lancaster University, UK;
-- [Stephanie Hicks](https://github.com/stephaniehicks), Johns Hopkins University, USA;
-- [Paula Moraga](https://github.com/Paula-Moraga), King Abdullah University of Science and Technology, Saudi Arabia;
-- [Leonardo Collado-Torres](https://github.com/lcolladotor), Lieber Institute for Brain Development, USA;
-- [Toby Hocking](https://github.com/tdhock), Northern Arizona University, USA.
+```{r gen_ed_out-fn, echo=FALSE}
+gen_ed_out <- function(ed_dat) {
+    out <- gsub("(,\\sNA|\\s);", ";", paste0(
+        "- [", ed_dat$name, "](https://github.com/", ed_dat$github, "), ",
+        ed_dat$Affiliation, ";\n"))
+    out[length(out)] <- gsub(";\\n$", ".\n", out[length(out)])
+    return(out)
+}
+```
+```{r editors-out, echo=FALSE, results='asis'}
+cat(gen_ed_out(editors), sep = "")
+```
 
-### Reviewers and guest editors
+### Reviewers and former editors
 
 We are grateful to the following individuals who have offered up their time and expertise to review packages submitted to rOpenSci.
 
 ```{r reviewers, echo=FALSE, results='asis'}
-if (Sys.getenv("AIRTABLE_API_KEY") == ""){
-  Sys.setenv(AIRTABLE_API_KEY = params$AIRTABLE_API_KEY)
-}
-if (Sys.getenv("AIRTABLE_ID") == ""){
-  Sys.setenv(AIRTABLE_ID = params$AIRTABLE_ID)
-}
-editors <- c(
-  "Noam Ross", "Karthik Ram", "Maëlle Salmon",
-  "Anna Krystalli", "Mauro Lepore", 
-  "Laura DeCicco", "Julia Gustavsen",
-  "Emily Riederer", "Adam Sparks", "Jeff Hollister"
-  )
-reviewers <- airtabler::airtable(base = Sys.getenv("AIRTABLE_ID"), 
-                                table = "reviewers-prod")
-reviewers <- reviewers$`reviewers-prod`$select_all()
 reviewers <- reviewers[purrr::map_lgl(reviewers$reviews, 
                                ~!is.null(.)) & 
-                         !(reviewers$name %in% c(editors, "???")), ]
+                         !(reviewers$name %in% c(editors_all$name, "???")), ]
 # get last names
 last_names <- humaniformat::last_name(trimws(reviewers$name))
 reviewers <- reviewers[order(last_names), ]
 reviewers$name[is.na(reviewers$name)] <- reviewers$github[is.na(reviewers$name)]
 cat(paste0("[", reviewers$name, "](https://github.com/", reviewers$github, ")", collapse = " \U00B7 "))
 ```
 
-We are also grateful to the following individuals who have served as guest editors.
+We are also grateful to the following individuals who have previously served as editors.
 
-```{r}
-#| echo: false
-#| results: 'asis'
-guest_editors <- airtabler::airtable(base = "app8dssb6a7PG6Vwj", 
-                                table = "guest-editors")
-guest_editors <- guest_editors$`guest-editors`$select_all()
-guest_editors <- guest_editors[!(guest_editors$name %in% c(editors, "???")), ]
+```{r editors_past, echo=FALSE, results='asis'}
+cat(gen_ed_out(editors_past), sep = "")
+```
+
+And the following who have served as guest editors.
+
+```{r guest-editors-out, echo=FALSE, results='asis'}
+guest_editors <- guest_editors[!(guest_editors$name %in%
+    c(editors_all$name, eic_name, "???")), ]
 # get last names
 last_names <- humaniformat::last_name(trimws(guest_editors$name))
 guest_editors <- guest_editors[order(last_names), ]
-cat(paste0("[", guest_editors$name, "](https://github.com/", guest_editors$github, ")", collapse = " \U00B7 "))
+cat(gen_ed_out(guest_editors), sep = "")
 ```
-