expose 'check_urls' in main 'add_contribs' fn for #38

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: allcontributors
 Title: Acknowledge all Contributors to a Project
-Version: 0.1.1.004
+Version: 0.1.1.005
 Authors@R: 
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre"))
 Description: Acknowledge all contributors to a project via a single

R/add-contributors.R

@@ -42,6 +42,9 @@
 #' \item{3} "text" for a single line of text containing comma-separated github
 #' user names linked to issue contributions.
 #' }
+#' @param check_urls If `TRUE` (default), GitHub URLs of all contributors are
+#' checked to ensure they are still valid. (This is generally the most
+#' time-consuming stage, so set to 'FALSE' if you are sure all URLs are valid.)
 #' @param open_issue If `TRUE`, open or edit an issue on github in order to
 #' notify all contributors that they've been added to your `README` (see Note).
 #' @param force_update If `TRUE`, update the specified files even if
@@ -78,6 +81,7 @@ add_contributors <- function (repo = ".",
                                   "Issue Contributors"
                               ),
                               format = "grid",
+                              check_urls = TRUE,
                               alphabetical = FALSE,
                               open_issue = FALSE,
                               force_update = FALSE) {
@@ -117,6 +121,7 @@ add_contributors <- function (repo = ".",
         exclude_issues = exclude_issues,
         exclude_not_planned = exclude_not_planned,
         alphabetical = alphabetical,
+        check_urls = check_urls,
         quiet = FALSE
     )
 
@@ -163,9 +168,9 @@ get_org_repo <- function (repo) {
         stop ("Repository must have github remote")
     }
 
-    parsed_remote <- parse_github_remotes(remote)
-    org <- parsed_remote[["repo_owner"]]
-    repo <- parsed_remote[["repo_name"]]
+    parsed_remote <- parse_github_remotes (remote)
+    org <- parsed_remote [["repo_owner"]]
+    repo <- parsed_remote [["repo_name"]]
 
     list (
         org = org,

R/github.R

@@ -5,9 +5,6 @@
 #' @param org Github organisation name for repository
 #' @param repo Repository within `org` for which contributors are to be
 #' extracted
-#' @param check_urls If `TRUE` (default), GitHub URLs of all contributors are
-#' checked to ensure they are still valid. (This is generally the most
-#' time-consuming stage, so set to 'FALSE' if you are sure all URLs are valid.)
 #' @param quiet If `FALSE`, display progress information on screen.
 #' @inheritParams add_contributors
 #'

codemeta.json

@@ -7,7 +7,7 @@
   "codeRepository": "https://github.com/ropenscilabs/allcontributors",
   "issueTracker": "https://github.com/ropenscilabs/allcontributors/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.1.004",
+  "version": "0.1.1.005",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",