pass 'n_per_page' param to all fn calls in cm-data.R for #23

Author: mpadge

DESCRIPTION

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

R/cm-data-gh-prs.R

@@ -110,17 +110,19 @@ gh_prs_qry <- function (org = "ropensci-review-tools",
 cm_data_prs_from_gh_api_internal <- function (path, n_per_page = 30L) {
 
     is_test_env <- Sys.getenv ("REPOMETRICS_TESTS") == "true"
-    if (is_test_env) {
-        n_per_page <- 2L
-    }
 
     or <- org_repo_from_path (path)
     end_cursor <- pr_data <- NULL
     has_next_page <- TRUE
 
     while (has_next_page) {
 
-        q <- gh_prs_qry (org = or [1], repo = or [2], end_cursor = end_cursor, n_per_page = n_per_page)
+        q <- gh_prs_qry (
+            org = or [1],
+            repo = or [2],
+            end_cursor = end_cursor,
+            n_per_page = n_per_page
+        )
         dat <- gh::gh_gql (query = q)
 
         pr_data <- c (pr_data, dat$data$repository$pullRequests$nodes)

R/cm-data.R

@@ -1,14 +1,17 @@
-cm_data <- function (path) {
+cm_data <- function (path, n_per_page = 30L) {
+
+    checkmate::assert_directory_exists (path)
+    checkmate::assert_integerish (n_per_page, lower = 1L, len = 1L)
 
     data_fns <- get_cm_data_fns ()
 
     if (all_cm_data_fns_memoised (data_fns, path)) {
         res <- lapply (data_fns, function (i) {
-            do.call (i, list (path))
+            do.call (i, list (path = path, n_per_page = n_per_page))
         })
     } else {
         res <- pbapply::pblapply (data_fns, function (i) {
-            do.call (i, list (path))
+            do.call (i, list (path = path, n_per_page = n_per_page))
         })
     }
     names (res) <- gsub ("^cm\\_data\\_", "", data_fns)

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