R/add_to_rprofile.R

In ThinkR-open/fcuk: The Ultimate Helper for Clumsy Fingers

#' Add library(fcuk) to the .Rprofile file
#' 
#' After calling this function, fcuk will be launched everytime you launch your 
#' current R project (or any project if you use option \code{global = TRUE}).
#' 
#' @param global Whether to add it to the global .Rprofile (\code{TRUE}) or just 
#'   to the .Rprofile file of your current project (\code{FALSE}, the default).
#' @importFrom stringr str_trim str_subset
#' @importFrom magrittr %>% 
#' @export
#' @examples
#' fcuk::add_fcuk_to_rprofile()
add_fcuk_to_rprofile <- function(global = TRUE) {
  
  file <- `if`(global, "~/.Rprofile", ".Rprofile")
  
  if (file.exists(file)) {
    rl <- readLines(file) %>% str_trim() %>% str_subset("^[^#]")
    
    already_there <- any(grepl("(fcuk)", rl, fixed = TRUE))
    if (already_there) {
      enod("fcuk was already in " , file)
      return(invisible(NULL))}
  }
  
  to_add <- "\nif (interactive()) {\n  suppressMessages(require(fcuk))\n}\n"
  cat(to_add, file = file, append = TRUE)
  done("Adding fcuk to ",file)
  
}