R/updateR.R

In AndreaCirilloAC/updateR: update R version in an R function (OSX devices)

#' @importFrom xml2 read_html
#' @importFrom rvest html_nodes html_text html_attr
#' @importFrom utils download.file installed.packages install.packages
#' @importFrom utils sessionInfo
#' @importFrom dplyr select filter pull
#' @title Downloads and installs the latest version of R for Mac OS X.
#' @param auto Do you want to check for new updates upon firing an R session?
#' @param .Rprofile the path for .Rprofile if it exists in other than
#'   \code{~/.Rprofile}
#' @description Update your version of R from inside R itself (Mac OS X only).
#' @details Automatic update checks are implemented via creating or updating
#'   \code{.Rprofile} file. Every time when \code{updateR} is loaded in R,
#'   it will check whether new updates are available. A message will be
#'   prompted to user if positive.
#' @author Andrea Cirillo, Robert Myles McDonnell, Chuck Leong
#' @examples
#' \dontrun{
#' ## NOT RUN
#' updateR()
#' ## END NOT RUN
#' }
#' @export
updateR <- function(auto = TRUE, .Rprofile = NULL) {
  # first test for on OS
  stopifnot(.Platform$OS.type == "unix")

  # check updates upon the start of a R session
  admin_password <- ask_password()
  if(auto)
    check_auto(r_prof = .Rprofile)

  # check if user can run sudo
  username <- system('whoami', intern = TRUE)
  command <- paste0("echo '", admin_password, "' | sudo -S -l")
  out <- system(command, intern = TRUE)

  if (length(out) == 0) {
    stop(sprintf("current user %s does not have admin privileges", username))
  }

  installed.packages() %>%
    as.data.frame() %>%
    select(Package) %>%
    as.vector() -> needed_packages # saving packages installed before updating R version
  needed_packages <- paste(unlist(needed_packages))
  save(needed_packages, file = "/tmp/needed_packages.RData")

  latest <- latest_r_version()
  if (!latest$update_avail) {
    message(
      paste(
        "Update not necessary.\n Latest version ====",
        version$version.string,
        "==== already installed."
      )
    )
    return(invisible())
  }
  check_compactability(status = latest)
  installing <- list_packages()

  folderpath <- sprintf("/Users/%s/Downloads/",
                        system2("whoami", stdout = TRUE))
  pkgfile <- regmatches(latest$url, regexpr("R.*$", latest$url))
  fullpath <- sprintf("%s%s", folderpath, pkgfile)
  # download package, set folder for download
  if (!package_exists(status = latest))
    download.file(latest$url, fullpath)

  #install .pkg file
  message(paste0("Installing R-", latest$latest, "...please wait"))

  command <-
    paste0("echo '",
           admin_password,
           "' | sudo -S installer -pkg ",
           "'",
           fullpath,
           "'",
           " -target /")
  system(command, ignore.stdout = TRUE)

  arg <- paste0("--check-signature ", fullpath)
  system2("pkgutil", arg)

  # restore packages
  restore_packages(status = latest)

  # store version of R
  x <- system2("R", args = "--version", stdout = TRUE)
  x <- x[1]

  message(paste0("Everything went smoothly, R was updated to ", x))
  message(paste0(
    "Also the packages installed on your previous version of R were restored"
  ))
}