only check line after Contributors if it exists

ropensci · Jul 17, 2024 · 2834c77 · 2834c77
1 parent 54d28a7
commit 2834c77
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/R/add-contributors.R b/R/add-contributors.R
@@ -287,10 +287,8 @@ add_contribs_to_one_file <- function (ctbs, orgrepo, ncols, format, filename) {
         )
     } else {
         contribs_sec <- grep ("^\\#\\#\\sContributors$|^Contributors$", x)
-        if (x [contribs_sec + 1] == "^-+$") {
-            contribs_sec <- contribs_sec + 1
-        }
-        if (x [contribs_sec + 1] == "") {
+        if (length(x) > contribs_sec &&
+                x [contribs_sec + 1] %in% c("^-+$", "")) {
             contribs_sec <- contribs_sec + 1
         }
     }