tidy separation of lines in main history plot

ropensci-review-tools · Mar 20, 2024 · 7cdf8be · 7cdf8be
1 parent 7fcd487
commit 7cdf8be
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: dashboard
 Title: What the Package Does (One Line, Title Case)
-Version: 0.1.0.003
+Version: 0.1.0.004
 Authors@R: 
   person(given = "First",
          family = "Last",

diff --git 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.1.0.003",
+  "version": "0.1.0.004",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

diff --git a/quarto/history.qmd b/quarto/history.qmd
@@ -18,9 +18,9 @@ library (ggplot2)
 dat <- review_history (quiet = TRUE)
 ```
 
-This chart shows the total number of packages under review each month, with
-lines shown for all packages, as well as general review, and statistical
-software review, which started in September 2021.
+This chart shows the total number of packages under review each month. Lines
+are shown for all packages, as well as separate trends distinguishing general
+review from statistical software review, which started in September 2021.
 
 
 ```{r history-months, echo = FALSE}
@@ -49,6 +49,10 @@ monthly_reviews_stats <- get_monthly_reviews (dat [which (dat$stats), ])
 monthly_reviews_stats$type <- "stats"
 monthly_reviews_stats$lty <- 1L
 
+index <- which (monthly_reviews_gen$month %in% monthly_reviews_stats$month)
+index <- c (min (index) - 1L, index) # To ensure line joins to previous
+monthly_reviews_gen <- monthly_reviews_gen [index, ]
+
 reviews <- rbind (monthly_reviews, monthly_reviews_gen, monthly_reviews_stats)
 ```