R/run_std.r

In MiguelRodo/alwaysloaded: Add desired .Rprofile settings

#' @title Standard tasks for inside .Rprofile
#'
#' @export
run_std <- function(env = parent.frame(2)) {

  if ("renv:shims" %in% search()) {
    install_pkg <- renv::install
  } else {
    install_pkg <- utils::install.packages
  }

  # set repo to RStudio Package Manager
  if (is.null(getOption("repos"))) {
    if (identical(Sys.getenv("USERPROFILE"), "C:\\Users\\migue")) {
      options("download.file.method" = "wininet")
    }
    options(
      repos = c(REPO_NAME = "https://packagemanager.rstudio.com/all/latest")
    )
  }


  alwaysloaded::add_options_vsc()



  # change prompt style, don't show more than four digits
  # and don't show significance stars
  options(prompt = "R> ", digits = 4, show.signif.stars = FALSE)

  # don't open  dialogye boxes, but rather print to console
  options(menu.graphics = FALSE)

  # make knitr::include_graphics use
  # pdf automatically when knitting to PDF
  # even when file name ends in png
  options("knitr.graphics.auto_pdf" = TRUE)

  options(stringsAsFactors = FALSE)

  # open libraries
  # keep "standard" libraries first
  library("datasets")
  library("utils")
  library("grDevices")
  library("graphics")
  library("stats")
  if (interactive()) {
    if (floor(as.numeric(utils::sessionInfo()$R.version$major)) <= 3) {
      if (!requireNamespace("magrittr", quietly = TRUE)) {
        message("installing magrittr")
        install_pkg("magrittr")
      }

      try(assign("%>%",
        value = magrittr::`%>%`,
        envir = env
      ))
    }
  }

  invisible(TRUE)
}