Merge pull request #117 from ropensci-review-tools/pr-data

fix gh-pr-data when no author

Author: mpadge

DESCRIPTION

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

R/data-gh-prs.R

@@ -158,8 +158,9 @@ rm_data_prs_from_gh_api_internal <- function (path, n_per_page = 30L) { # nolint
             character (1L)
         )
         author <- vapply (
-            i$comments$nodes,
-            function (j) j$author$login,
+            i$comments$nodes, function (j) {
+                ifelse (length (j$author) == 0L, "", j$author$login)
+            },
             character (1L)
         )
         body <- vapply (i$comments$nodes, function (j) j$body, character (1L))
@@ -224,7 +225,9 @@ rm_data_prs_from_gh_api_internal <- function (path, n_per_page = 30L) { # nolint
     })
 
     # A few extra pro-processing ones just to avoid long lines:
-    user_login <- vapply (pr_data, function (i) i$author$login, character (1L))
+    user_login <- vapply (pr_data, function (i) {
+        ifelse (length (i$author) == 0L, "", i$author$login)
+    }, character (1L))
     merged_by <- vapply (
         pr_data,
         function (i) null2na_char (i$mergedBy$login),

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