fix #39

Author: mpadge

DESCRIPTION

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

quarto/history.qmd

@@ -69,10 +69,6 @@ submissions_stats <- get_submissions (dat [which (dat$stats), ], period = period
 submissions_stats$type <- "stats"
 submissions_stats$lty <- 1L
 
-index <- which (submissions_gen$date %in% submissions_stats$date)
-index <- c (min (index) - 1L, index) # To ensure line joins to previous
-submissions_gen <- submissions_gen [index, ]
-
 submissions <- rbind (submissions_all, submissions_gen, submissions_stats)
 ```
 
@@ -409,10 +405,6 @@ rev_dur_stats <- get_rev_durations (dat_closed [which (dat_closed$stats), ])
 rev_dur_stats$type <- "stats"
 rev_dur_stats$lty <- 1L
 
-index <- which (rev_dur_gen$date %in% rev_dur_stats$date)
-index <- c (min (index) - 1L, index) # To ensure line joins to previous
-rev_dur_gen <- rev_dur_gen [index, ]
-
 rev_dur <- rbind (rev_dur_all, rev_dur_gen, rev_dur_stats)
 ```
 
@@ -576,10 +568,6 @@ rev_hours_stats <- get_rev_hours (dat [which (dat$stats), ])
 rev_hours_stats$type <- "stats"
 rev_hours_stats$lty <- 1L
 
-index <- which (rev_hours_gen$date %in% rev_hours_stats$date)
-index <- c (min (index) - 1L, index) # To ensure line joins to previous
-rev_hours_gen <- rev_hours_gen [index, ]
-
 rev_hours <- rbind (rev_hours_all, rev_hours_gen, rev_hours_stats)
 
 # Then raw historgram data: