add subscribers to repo data for #23

Author: mpadge

DESCRIPTION

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

R/cm-data-gh-repo.R

@@ -28,6 +28,7 @@ repo_from_gh_api <- function (path) {
         homepage = null2na_char (body$homepage),
         size = body$size,
         stargazers_count = body$stargazers_count,
+        subscribers_count = body$subscribers_count,
         language = null2na_char (body$language),
         forks_count = body$forks_count,
         open_issues_count = body$open_issues_count,

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

tests/testthat/test-cm-data-github.R

@@ -40,16 +40,16 @@ test_that ("cm data gh repo", {
 
     expect_s3_class (repo, "data.frame")
     expect_equal (nrow (repo), 1L)
-    expect_equal (ncol (repo), 17L)
+    expect_equal (ncol (repo), 18L)
     nms <- c (
         "id", "name", "full_name", "owner", "url", "description", "is_fork",
         "created_at", "updated_at", "homepage", "size", "stargazers_count",
-        "language", "forks_count", "open_issues_count", "topics",
-        "default_branch"
+        "subscribers_count", "language", "forks_count", "open_issues_count",
+        "topics", "default_branch"
     )
     expect_equal (names (repo), nms)
 
-    int_index <- c (1, 11:12, 14:15)
+    int_index <- c (1, 11:13, 15:16)
     char_index <- seq_along (nms) [-int_index]
     int_nms <- nms [int_index]
     char_nms <- nms [char_index]