separate 'extract_pkgstats_data' with main loop for #1

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: githist
 Title: Code analyses traced along the 'git' history of a package
-Version: 0.1.0.028
+Version: 0.1.0.029
 Authors@R: 
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

R/githist-fn.R

@@ -35,6 +35,8 @@ githist <- function (path, n = NULL, step_size = 1L, num_cores = -1L) {
     }
     checkmate::assert_int (num_cores)
 
+    num_cores <- set_num_cores (num_cores)
+
     path_cp <- fs::path (fs::path_temp (), basename (path))
     clean_after <- FALSE
     if (fs::path (fs::path_dir (path)) != fs::path_temp () &&
@@ -51,11 +53,7 @@ githist <- function (path, n = NULL, step_size = 1L, num_cores = -1L) {
         h <- h [seq_len (n), ]
     }
 
-    res <- pbapply::pblapply (seq_len (nrow (h)), function (i) {
-        g <- gert::git_reset_hard (ref = h$commit [i], repo = path_cp)
-        pkg_date <- h$time [i]
-        run_one_pkgstats (path = path_cp, pkg_date = pkg_date)
-    })
+    res <- extract_pkgstats_data (h, path_cp, num_cores)
 
     if (clean_after) {
         fs::dir_delete (path_cp)
@@ -64,6 +62,16 @@ githist <- function (path, n = NULL, step_size = 1L, num_cores = -1L) {
     collate_pkgstats (res)
 }
 
+extract_pkgstats_data <- function (log, path, num_cores) {
+
+    res <- pbapply::pblapply (seq_len (nrow (log)), function (i) {
+        g <- gert::git_reset_hard (ref = log$commit [i], repo = path)
+        run_one_pkgstats (path = path, pkg_date = log$time [i])
+    })
+
+    return (res)
+}
+
 collate_pkgstats <- function (x) {
     nms <- names (x [[1]])
     nms2df <- nms [seq_len (which (nms == "loc") - 1L)]

codemeta.json

@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/ropensci-review-tools/githist",
   "issueTracker": "https://github.com/ropensci-review-tools/githist/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.0.028",
+  "version": "0.1.0.029",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",