fix return value of models_over_end_dates for #87

And suppress verbose output

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: repometrics
 Title: Metrics for Your Code Repository
-Version: 0.1.5.016
+Version: 0.1.5.017
 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

@@ -81,7 +81,7 @@ models_over_end_dates <- function (path, end_date = Sys.Date (), num_years = 3)
         function (d) collate_all_models (path, end_date = d)
     )
     models_data <- data.frame (do.call (rbind, models_data)) |>
-        dplyr::mutate (models_data, date = end_dates, .before = 1)
+        dplyr::mutate (date = end_dates, .before = 1)
 
     return (models_data)
 }

R/cm-metric-has-ci.R

@@ -36,7 +36,7 @@ cm_metric_has_ci <- function (path, end_date = NULL) {
     if (!has_ci) {
         ci_files <- repo_has_ci_files (path)
         has_ci <- length (ci_files) > 0L
-        if (has_ci) {
+        if (has_ci && is_verbose ()) {
             cli::cli_alert_info (paste0 (
                 "Unable to determine whether runs are ",
                 "recent for CI service [{ci_files}]."

R/utils.R

@@ -59,3 +59,7 @@ get_end_date_seq <- function (end_date = Sys.Date (),
 
     return (end_dates)
 }
+
+is_verbose <- function () {
+    getOption ("rlang_message_verbosity", "") == "verbose"
+}

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