add 'stats' flag to dashboard data

ropensci-review-tools · Mar 7, 2024 · 9ad031c · 9ad031c
1 parent c8b80e2
commit 9ad031c
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: dashboard
 Title: What the Package Does (One Line, Title Case)
-Version: 0.0.1.005
+Version: 0.0.1.006
 Authors@R: 
   person(given = "First",
          family = "Last",

diff --git a/R/dashboard-fn.R b/R/dashboard-fn.R
@@ -150,6 +150,8 @@ dashboard_gh_data <- function (open_only = TRUE, quiet = FALSE) {
     names (stages) <- c ("label", "date")
     stages$date <- as.Date (stages$date)
 
+    stats <- vapply (labels, function (i) "stats" %in% i, logical (1L))
+
     # Also identify any issues with multiple stages:
     multiple_stages <- vapply (event_labels, function (i) {
         n_total <- length (grep ("^[0-9]\\/", i))
@@ -179,6 +181,7 @@ dashboard_gh_data <- function (open_only = TRUE, quiet = FALSE) {
         number = number,
         title = titles,
         state = state,
+        stats = stats,
         stage = stages$label,
         stage_date = stages$date,
         has_multiple_stages = multiple_stages,

diff --git a/codemeta.json b/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.1.005",
+  "version": "0.0.1.006",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",