exclude @noamross 'legacy' label from review stats

DESCRIPTION

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

R/reviews.R

@@ -509,7 +509,9 @@ review_history <- function (quiet = FALSE) {
     )
     std_stats <- submission_type %in% c ("Standard", "Stats") &
         is.na (closed_at)
-    pkg_index <- which (approved | std_stats)
+    # There is also a "legacy" label on #137 that should be excluded:
+    legacy <- vapply (labels, function (i) "legacy" %in% i, logical (1L))
+    pkg_index <- which ((approved | std_stats) & !legacy)
 
     number <- number [pkg_index]
     opened_at <- opened_at [pkg_index]
@@ -521,6 +523,7 @@ review_history <- function (quiet = FALSE) {
     # labels are then only used to identify stats submissions:
     stats <- vapply (labels, function (i) "stats" %in% i, logical (1L))
 
+
     res <- data.frame (
         number = number,
         state = state,

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