lint

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: allcontributors
 Title: Acknowledge all Contributors to a Project
-Version: 0.1.1.017
+Version: 0.1.1.018
 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

@@ -105,7 +105,8 @@ add_contributors <- function (repo = ".",
     }))
 
     combined_df <- do.call (rbind, all_repos [, "ctbs"])
-    combined_df$contributions <- stats::ave (combined_df$contributions, combined_df$login, FUN = sum)
+    combined_df$contributions <-
+        stats::ave (combined_df$contributions, combined_df$login, FUN = sum)
 
     # Remove duplicate rows
     result <- combined_df [!duplicated (combined_df [c ("logins")]), ]
@@ -192,7 +193,7 @@ match_type_arg <- function (type) {
             "code, issues, and discussion"
         ))
     }
-    c ("code", "issues", "discussion") [seq (length (type))]
+    c ("code", "issues", "discussion") [seq_along (type)]
 }
 
 get_org_repo <- function (repo) {
@@ -442,7 +443,7 @@ add_one_section <- function (ctbs, orgrepo, ncols,
 
     if (format == "grid") {
         nmax <- ceiling (nrow (ctbs) / ncols)
-        index <- rep (1:nmax, each = ncols) [seq (nrow (ctbs))]
+        index <- rep (1:nmax, each = ncols) [seq_len (nrow (ctbs))]
         ctbs <- split (ctbs, as.factor (index))
     } else {
         ctbs <- list (ctbs)
@@ -461,7 +462,7 @@ add_one_section <- function (ctbs, orgrepo, ncols,
             x <- c (x, "<tr>")
         }
 
-        for (j in seq (nrow (i))) {
+        for (j in seq_len (nrow (i))) {
             href <- NULL
             u <- paste0 (
                 "<a href=\"https://github.com/",

R/github.R

@@ -327,8 +327,6 @@ get_gh_issue_people <- function (org, repo,
             }, character (1L))
         )
 
-        author <- dat$node$participants$edges
-
         author_login <- lapply (dat, function (i) {
             edges <- i$node$participants$edges
             unlist (lapply (edges, function (j) j$node$login))

R/urlcheck.R

@@ -80,7 +80,8 @@ check_github_urls <- function (ctbs, quiet = FALSE) {
         if (!quiet) {
             message (
                 "\r", cli::col_green (cli::symbol$cross),
-                " Checking GitHub URLs failed; contributors will be added regardless"
+                " Checking GitHub URLs failed; ",
+                "contributors will be added regardless"
             )
         }
         return (ctbs)

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