fix multiple_stages identification

ropensci-review-tools · Mar 20, 2024 · b2fdbce · b2fdbce
1 parent 4ea1b6f
commit b2fdbce
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 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.8.001
+Version: 0.0.8.002
 Authors@R: 
   person(given = "First",
          family = "Last",

diff --git a/R/reviews.R b/R/reviews.R
@@ -169,8 +169,8 @@ reviews_gh_data <- function (open_only = TRUE, quiet = FALSE) {
 
     # Also identify any issues with multiple stages:
     multiple_stages <- vapply (event_labels, function (i) {
-        n_total <- length (grep ("^[0-9]\\/", i))
-        n_approved <- length (grep ("^6\\/", i))
+        n_total <- length (grep ("^[0-9]\\/", unique (i)))
+        n_approved <- length (grep ("^6\\/", unique (i)))
         n_total > 1L && n_total != n_approved
     }, logical (1L))
 

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