fix is_ignored() cc @krlmlr

R/auto.R

@@ -325,6 +325,22 @@ gh_scopes <- function() {
   strsplit(out, ", *")[[1]]
 }
 
+check_gitignore <- function(files) {
+  is_ignored <- map_lgl(files, is_ignored)
+
+  if (any(is_ignored)) {
+    files_ignored <- files[is_ignored]
+    cli::cli_alert_warning("The following files are listed in {.file .gitignore}:")
+    cli::cli_ul("{files_ignored}")
+    cli::cli_text("Certain {.pkg fledge} automation steps might fail due to this.")
+    abort(paste0("Remove ", glue_collapse(files_ignored, ", "), " from .gitignore."))
+  }
+}
+
+is_ignored <- function(path) {
+  system2("git", c("check-ignore", "-q", path), stdout = FALSE) != 1
+}
+
 create_pr <- function(release_branch, main_branch, remote_name) {
   info <- github_info(remote = remote_name)
   gh::gh("POST /repos/:owner/:repo/pulls",