R/use_rprofile.R

In umr1283/umr1283: UMR 1283 - Project Template

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

  withr::with_dir(proj, {
    file <- ".Rprofile"
    if (!file.exists(file)) {
      writeLines(
        con = file,
        text = c(
          "Sys.umask(\"0002\")",
          "if (interactive() && file.exists(\"~/.Rprofile\")) source(\"~/.Rprofile\")"
        )
      )
    } else {
      message(sprintf("\"%s\" already exists! Nothing was done!", file))
    }
  })
  invisible(TRUE)
}