Merge pull request #92 from ropensci-review-tools/no-aut

fix 'get_desc_authors' when no aut specified

Author: mpadge

DESCRIPTION

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

R/cm-metric-maintainer-count.R

@@ -75,12 +75,17 @@ match_repo_ctbs_to_desc <- function (path, desc_auts, gh_auts) {
         match_string_vecs (desc_auts$name, ctbs_from_gh$name),
         match_string_vecs (desc_auts$email, ctbs_from_gh$email)
     )
-    n_from_log <- apply (index_from_log, 1, function (i) any (!is.na (i))) |>
-        which () |>
-        length ()
-    n_from_gh <- apply (index_from_gh, 1, function (i) any (!is.na (i))) |>
-        which () |>
-        length ()
+    n_from_log <- n_from_gh <- 0L
+    if (length (index_from_log) > 0L) {
+        n_from_log <- apply (index_from_log, 1, function (i) any (!is.na (i))) |>
+            which () |>
+            length ()
+    }
+    if (length (index_from_gh) > 0L) {
+        n_from_gh <- apply (index_from_gh, 1, function (i) any (!is.na (i))) |>
+            which () |>
+            length ()
+    }
 
     return (max (c (n_from_log, n_from_gh)))
 }
@@ -114,6 +119,9 @@ get_desc_authors <- function (path, roles = c ("cre", "aut")) {
     if (any (grepl ("<", auts))) {
         aut_emails <- gsub ("^.*<|>(\\s?)$", "", auts)
     }
+    if (length (aut_names) == 0L || length (aut_emails) == 0L) {
+        aut_names <- aut_emails <- character (0L)
+    }
 
     data.frame (name = aut_names, email = aut_emails)
 }

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

tests/testthat/_snaps/cm-metrics.md

@@ -2,6 +2,4 @@
 
     Code
       chk <- cm_metric_has_ci(path)
-    Message
-      i Unable to determine whether runs are recent for CI service [github].