add 'review_history' fn for #7

DESCRIPTION

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

NAMESPACE

@@ -3,4 +3,5 @@
 export(add_editor_airtable_data)
 export(editor_status)
 export(editor_vacation_status)
+export(review_history)
 export(review_status)

R/reviews.R

@@ -428,8 +428,7 @@ extract_comment_info <- function (dat) {
     ))
 }
 
-#' Apply the 'gh_issues_qry_dates_states' query to extract data from GitHub
-#' GraphQL API, and post-process into a `data.frame`.
+#' Generate historical data on software reviews.
 #'
 #' This is a reduced version of the `reviews_gh_data()` function, which returns
 #' data only on dates of issue opening and closing, to be used to generate
@@ -438,8 +437,8 @@ extract_comment_info <- function (dat) {
 #' @param quiet If `FALSE`, display progress information on screen.
 #' @return (Invisibly) A `data.frame` with one row per issue and some key
 #' statistics.
-#' @noRd
-reviews_gh_data_dates_states <- function (open_only = TRUE, quiet = FALSE) {
+#' @export
+review_history <- function (quiet = FALSE) {
 
     has_next_page <- TRUE
     end_cursor <- NULL
@@ -516,6 +515,7 @@ reviews_gh_data_dates_states <- function (open_only = TRUE, quiet = FALSE) {
     closed_at <- closed_at [pkg_index]
     submission_type <- submission_type [pkg_index]
     state <- state [pkg_index]
+    labels <- labels [pkg_index]
 
     # labels are then only used to identify stats submissions:
     stats <- vapply (labels, function (i) "stats" %in% i, logical (1L))
@@ -528,5 +528,8 @@ reviews_gh_data_dates_states <- function (open_only = TRUE, quiet = FALSE) {
         closed_at = lubridate::date (lubridate::ymd_hms (closed_at))
     ) |> dplyr::arrange (number)
 
+    dtime <- lubridate::interval (res$opened_at, res$closed_at)
+    res$duration_days <- as.numeric (dtime) / (24 * 3600)
+
     return (res)
 }

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