add data input to org dashboard #99

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: repometrics
 Title: Metrics for Your Code Repository
-Version: 0.1.6.006
+Version: 0.1.6.007
 Authors@R: 
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

R/quarto-dashboard-org.R

@@ -12,6 +12,8 @@
 #' @export
 orgmetrics_dashboard <- function (data_org, data_users, action = "preview") {
 
+    data_org <- data_org_preprocess (data_org)
+
     requireNamespace ("brio")
     requireNamespace ("jsonlite")
     requireNamespace ("quarto")
@@ -23,8 +25,29 @@ orgmetrics_dashboard <- function (data_org, data_users, action = "preview") {
     path_src <- system.file ("extdata", "quarto-org", package = "repometrics")
     path_dest <- fs::path (fs::path_temp (), "quarto-org")
     dir <- fs::dir_copy (path_src, path_dest, overwrite = TRUE)
+    saveRDS (data_org, fs::path (dir, "results-org.Rds"))
 
     withr::with_dir (dir, {
         do.call (eval (parse (text = quarto_action)), list ())
     })
 }
+
+#' Pre-process organization data by converting all model values to standard
+#' z-scores, retrieving the latest value only for each package, and generating
+#' a "final" score from the sum across all model scores. Higher values of this
+#' final score are better than lower values.
+#' @noRd
+data_org_preprocess <- function (data_org) {
+
+    data_org |>
+        dplyr::mutate (
+            dplyr::across (dplyr::where (is.numeric), ~ scale (.) [, 1])
+        ) |>
+        dplyr::group_by (package) |>
+        dplyr::slice_head (n = 1L) |>
+        dplyr::mutate (
+            final = sum (dplyr::across (dplyr::where (is.numeric))),
+            .after = "date"
+        ) |>
+        dplyr::arrange (dplyr::desc (final))
+}

codemeta.json

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