retain extra cols for dashboard analyses

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: githist
 Title: Code analyses traced along the 'git' history of a package
-Version: 0.1.0.015
+Version: 0.1.0.016
 Authors@R: 
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

R/quarto-dashboard.R

@@ -20,8 +20,6 @@ ghist_dashboard <- function (results, action = "preview") {
     action <- match.arg (action, c ("preview", "render"))
     quarto_action <- paste0 ("quarto::quarto_", action)
 
-    pkg_name <- results$desc_data$package [1]
-
     results <- daily_average (results, "stats")
     results <- daily_average (results, "desc_data")
     results <- daily_average (results, "loc")
@@ -30,6 +28,7 @@ ghist_dashboard <- function (results, action = "preview") {
     dir <- fs::dir_copy (path_src, fs::path_temp ())
     saveRDS (results, fs::path (dir, "results.Rds"))
 
+    pkg_name <- results$desc_data$package [1]
     quarto_insert_pkg_name (dir, pkg_name)
 
     withr::with_dir (dir, {
@@ -41,7 +40,7 @@ daily_average <- function (results, what = "stats") {
 
     results [[what]]$date <- lubridate::ymd (strftime (results [[what]]$date, "%y-%m-%d"))
 
-    cols <- c ("language", "dir", "date")
+    cols <- c ("package", "date", "language", "dir", "measure")
     cols <- cols [which (cols %in% names (results [[what]]))]
 
     results [[what]] <- dplyr::group_by (results [[what]], dplyr::across (dplyr::all_of (cols))) |>

codemeta.json

@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/ropensci-review-tools/githist",
   "issueTracker": "https://github.com/ropensci-review-tools/githist/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.0.015",
+  "version": "0.1.0.016",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",