return ed-review data from main 'editor_status' fn for #7

DESCRIPTION

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

R/editors.R

@@ -270,5 +270,17 @@ editor_status <- function (quiet = FALSE) {
     eds <- unique (timeline$name)
     timeline$y <- match (timeline$name, eds)
 
-    return (list (status = status, timeline = timeline))
+    # Finally, reviews for each editor
+    ed_rev <- split (dat$reviews, f = as.factor (dat$reviews$editor))
+    ed_rev <- lapply (ed_rev, function (i) {
+        i$editor <- NULL
+        i$closed_at [i$state == "OPEN"] <- NA
+        return (i)
+    })
+
+    return (list (
+        status = status,
+        timeline = timeline,
+        reviews = ed_rev
+    ))
 }

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.5.013",
+  "version": "0.0.5.014",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",