R/copy_install-r.R

In BroVic/myRStuff: Convenience functions and data

# install-r.R

#' Update R
#'
#' A customised update of an existing R installation, without a fuss. This
#' function is a wrapper for \code{\link[installr]{updateR}}
#'
#' @details The R installation will be carried out with little or no
#' interaction from the user, with the exception of a possible prompt from
#' \emph{Windows Smartscreen}. This functionality is for Windows machines
#' - the function carries out a platform check internally.
#'
#' @export
R_easy_update <- function() {
  if (!identical(.Platform$OS.type, tolower(win32 <- "Windows")))
    stop("Function runs only on ", win32)
  
  dwn <- file.path(path.expand("~"), "Downloads")
  if (!dir.exists(dwn)) {
    keep_install_file <- TRUE
    
    if (!dir.create(dwn)) {
      dwn <- getwd()
      keep_install_file <- FALSE
    }
  }
  
  updated <- FALSE
  try({
    hasLatestVersion <-
      !installr::check.for.updates.R(notify_user = FALSE, GUI = FALSE)
    if (hasLatestVersion) cat("Nothing to do\n")
    else updated <-
        installr::updateR(
          browse_news = FALSE,
          install_R = TRUE,
          copy_packages = TRUE,
          copy_Rprofile.site = TRUE,
          keep_old_packages = TRUE,
          GUI = TRUE,
          to_checkMD5sums = TRUE,
          update_packages = FALSE,
          start_new_R = FALSE,
          quit_R = FALSE,
          print_R_versions = FALSE,
          keep_install_file = keep_install_file,
          download_dir = dwn,
          silent = TRUE
        )
  })
  if (updated && keep_install_file)
    message("The installer was saved to ", dwn)
  
  invisible(updated)
}