Ouput initial info on multiple-stage issues in reviews.qmd

DESCRIPTION

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

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

quarto/reviews.qmd

@@ -12,9 +12,26 @@ format:
 library (dashboard)
 library (gt)
 rev_dat <- review_status (open_only = TRUE, browse = FALSE, quiet = TRUE)
-# The rest is code from dashboard/pkg/R/gh-table.R
+has_multiple_stages <- !is.null (attr (rev_dat, "multiple_stages"))
 ```
 
+```{r multiple-stages, eval = has_multiple_stages, echo = FALSE, results = "asis"}
+stages <- attr (rev_dat, "multiple_stages")
+u <- "https//github.com/ropensci/software-review/issues/"
+stages <- paste0 ("<a href='", u, stages, "'>", stages, "</a>")
+stages <- paste0 (stages, collapse = ", ")
+iss <- ifelse (length (stages) > 1L, "issues", "issue")
+v <- ifelse (length (stages) > 1L, "have", "has")
+cat (paste0 (
+    "<hr><span style='color:red'>The following ",
+    iss, " ", v,
+    " multiple stages:<br>",
+    stages,
+    "</span><br><hr>"
+))
+```
+
+
 ```{r add-html-to-table, echo = FALSE}
 u <- "https://github.com/ropensci/software-review/issues/"
 dat <- rev_dat