Merge pull request #89 from ropensci-review-tools/collate

implement 'metrics_data' pars in model fns for #87

Author: mpadge

DESCRIPTION

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

R/cm-collate-all.R

@@ -5,6 +5,7 @@ get_cm_fns <- function (what = "metric") {
 
     pkg_fns <- ls (envir = asNamespace ("repometrics"))
     fns <- grep (ptn, pkg_fns, value = TRUE)
+    fns <- fns [which (!grepl ("internal", fns))]
 
     return (fns)
 }
@@ -34,16 +35,24 @@ collate_all_metrics <- function (path, end_date = Sys.Date ()) {
     return (metrics_data)
 }
 
-collate_all_models <- function (path, end_date = Sys.Date ()) {
+collate_all_models <- function (path,
+                                end_date = Sys.Date (),
+                                metrics_data = NULL) {
 
     model_fns <- get_cm_fns ("model")
-    pars <- list (path = path, end_date = end_date)
+
+    if (is.null (metrics_data)) {
+        pars <- list (path = path, end_date = end_date)
+    } else {
+        pars <- list (metrics_data = metrics_data)
+    }
 
     model_data <- vapply (
         model_fns,
         function (f) do.call (f, pars),
         numeric (1L)
     )
+
     names (model_data) <- gsub ("^cm\\_model\\_", "", model_fns)
 
     return (model_data)

R/cm-metric-libyears.R

@@ -13,3 +13,10 @@ cm_metric_libyears <- function (path, end_date = NULL) {
 
     return (mn_med_sum (deps$libyears))
 }
+
+cm_metric_dependency_count <- function (path, end_date = NULL) {
+
+    deps <- rm_data_libyears (path)
+
+    return (nrow (deps))
+}

R/cm-metric-test-coverage.R

@@ -0,0 +1,38 @@
+cm_metric_test_coverage_internal <- function (path, end_date = Sys.Date ()) {
+
+    # Suppress no visible binding notes:
+    name <- coverage <- NULL
+
+    requireNamespace ("readr")
+
+    or <- org_repo_from_path (path)
+    wf_tests <- rm_data_gh_repo_workflow (path) |>
+        dplyr::filter (grepl ("test|coverage", name))
+
+    res0 <- data.frame (
+        id = integer (0),
+        created = double (0),
+        coverage = double (0),
+        row.names = NULL
+    )
+    if (nrow (wf_tests) == 0) {
+        return (res0)
+    }
+
+    # This returns the most recent test coverage value:
+    cov <- NA_real_
+    i <- 1L
+    while (is.na (cov) & i <= nrow (wf_tests)) {
+        cov <- coverage_from_one_log (wf_tests$logs_url [i])
+        i <- i + 1L
+    }
+    res <- data.frame (
+        id = wf_tests$id [i - 1],
+        created = wf_tests$created [i - 1],
+        coverage = cov,
+        row.names = NULL
+    )
+
+    return (res)
+}
+cm_metric_test_coverage <- memoise::memoise (cm_metric_test_coverage_internal)