Add total numbers of reviews at top of history page

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: dashboard
 Title: What the Package Does (One Line, Title Case)
-Version: 0.2.2.107
+Version: 0.2.2.108
 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.2.2.107",
+  "version": "0.2.2.108",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

quarto/history.qmd

@@ -23,8 +23,17 @@ starting from September 2021. Prior to this time, all reviews were "general".
 ```{r get-rev-history, echo = FALSE}
 #| cache: true
 dat <- review_history (quiet = TRUE)
+index <- which (!is.na (dat$duration_days))
+num_reviewed <- length (index)
+num_reviewed_stats <- length (which (dat$stats [index]))
+index <- which (dat$state == "OPEN" & !is.na (dat$editor))
+num_current <- length (index)
+num_current_stats <- length (which (dat$stats [index]))
 ```
 
+We have to date reviewed `r num_reviewed` packages, including
+`r num_reviewed_stats` statistical packages. We currently have `r num_current`
+packages under review, including `r num_current_stats` statistical packages.
 
 ## Package submissions {#package-submissions}