diff --git a/DESCRIPTION b/DESCRIPTION index 686674d..5a3aca0 100644 --- a/DESCRIPTION +++ b/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", diff --git a/codemeta.json b/codemeta.json index dddf6ec..c17c7b0 100644 --- 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.7.006", + "version": "0.0.7.007", "programmingLanguage": { "@type": "ComputerLanguage", "name": "R", diff --git a/quarto/reviews.qmd b/quarto/reviews.qmd index 23d927f..30c1459 100644 --- a/quarto/reviews.qmd +++ b/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 ("", stages, "") +stages <- paste0 (stages, collapse = ", ") +iss <- ifelse (length (stages) > 1L, "issues", "issue") +v <- ifelse (length (stages) > 1L, "have", "has") +cat (paste0 ( + "