From 9acf98fbf65d18e659e297854976227b78f0d865 Mon Sep 17 00:00:00 2001
From: Chris Hartgerink <chris@libscie.org>
Date: Tue, 30 Jan 2024 17:02:27 +0100
Subject: [PATCH] Factor out `add_contributors_one_repo`

---
 R/add-contributors.R | 40 ++++++++++++++++++++++++++++++++--------
 1 file changed, 32 insertions(+), 8 deletions(-)

diff --git a/R/add-contributors.R b/R/add-contributors.R
index 79b2288..42046e2 100644
--- a/R/add-contributors.R
+++ b/R/add-contributors.R
@@ -2,8 +2,8 @@
 #'
 #' Add contributors to README.Rmd
 #'
-#' @param repo Location of repository for which contributions are to be
-#' extracted. This must be a git project with a github remote.
+#' @param repo Vector of repository locations for which contributions are to be
+#' extracted. Each location must be a git project with a github remote.
 #' @param ncols Number of columns for contributors in 'README'
 #' @param files Names of files in which to add contributors
 #' @param type Type of contributions to include: 'code' for direct code
@@ -81,7 +81,36 @@ add_contributors <- function (repo = ".",
                               alphabetical = FALSE,
                               open_issue = FALSE,
                               force_update = FALSE) {
+    ctbs <- add_contributors_one_repo(
+                              repo,
+                              type,
+                              exclude_label,
+                              exclude_issues,
+                              exclude_not_planned,
+                              num_sections,
+                              section_names,
+                              format,
+                              alphabetical
+    )
 
+    chk <- add_contribs_to_files (
+        ctbs$ctbs, ctbs$or, ncols, format, files,
+        open_issue, force_update
+    )
+
+    invisible (unlist (chk))
+}
+
+add_contributors_one_repo <- function (
+                              repo,
+                              type,
+                              exclude_label,
+                              exclude_issues,
+                              exclude_not_planned,
+                              num_sections,
+                              section_names,
+                              format,
+                              alphabetical) {
     if (!in_git_repository (repo)) {
         stop ("The path [", repo, "] does not appear to be a git repository")
     }
@@ -136,12 +165,7 @@ add_contributors <- function (repo = ".",
 
     ctbs <- rename_default_sections (ctbs)
 
-    chk <- add_contribs_to_files (
-        ctbs, or, ncols, format, files,
-        open_issue, force_update
-    )
-
-    invisible (unlist (chk))
+    return(list(ctbs, or))
 }
 
 match_type_arg <- function (type) {