add info on multiple stages as attr of review data

DESCRIPTION

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

R/reviews.R

@@ -263,17 +263,20 @@ review_status <- function (open_only = TRUE, browse = TRUE, quiet = FALSE) {
         dplyr::relocate (editor, .after = labels) |>
         dplyr::relocate (editor_date, .after = editor)
 
-    if (any (dat$has_multiple_stages) && !quiet) {
-        numbers <- dat$number [which (dat$has_multiple_stages)]
-        txt <- ifelse (
-            length (numbers) == 1,
-            "issue currently has",
-            "issues currently have"
-        )
-        warning (
-            "The following ", txt, " multiple 'stage' labels:\n   ",
-            paste0 (numbers, collapse = ", ")
-        )
+    has_multiple_stages <- any (dat$has_multiple_stages)
+    if (has_multiple_stages) {
+        multiple_stages <- dat$number [which (dat$has_multiple_stages)]
+        if (!quiet) {
+            txt <- ifelse (
+                length (multiple_stages) == 1,
+                "issue currently has",
+                "issues currently have"
+            )
+            warning (
+                "The following ", txt, " multiple 'stage' labels:\n   ",
+                paste0 (multiple_stages, collapse = ", ")
+            )
+        }
     }
 
     # Collapse list columns:
@@ -299,6 +302,10 @@ review_status <- function (open_only = TRUE, browse = TRUE, quiet = FALSE) {
         print (open_gt_table (dat))
     }
 
+    if (has_multiple_stages) {
+        attr (dat, "multiple_stages") <- multiple_stages
+    }
+
     return (dat)
 }
 

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