fix 'updated at' timestamp on index; #49

Author: mpadge

DESCRIPTION

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

quarto/index.qmd

@@ -48,7 +48,10 @@ req <- httr2::request (u_runs) |>
 resp <- httr2::req_perform (req)
 body <- httr2::resp_body_json (resp)$workflow_runs
 index <- which (vapply (body [[1]], function (i) !is.list (i) && !is.null (i), logical (1L)))
-index <- index [-grep ("previous", names (index))]
+index_prev <- grep ("previous", names (index))
+if (length (index_prev) > 0L) {
+    index <- index [-index_prev]
+}
 run_dat <- do.call (rbind, lapply (body, function (b) as.data.frame (b [index])))
 # run_dat <- run_dat [which (run_dat$conclusion == "success"), ]