R/use_gitignore.R

In umr1283/umr1283: UMR 1283 - Project Template

#' @keywords internal
use_gitignore <- function(project = ".") {
  proj <- normalizePath(project, mustWork = FALSE)

  withr::with_dir(proj, {
    file <- ".gitignore"
    if (!file.exists(file)) {
      writeLines(
        con = file,
        text = c(
          ".Rproj.user",
          "**.Rproj",
          "**.Rhistory",
          "**.Rdata",
          "core"
        )
      )
    } else {
      message(sprintf('"%s" already exists! Nothing was done!', file))
    }
  })
  invisible(TRUE)
}