R/update_RYLin.R

In iyaolin/RYLin: YLin's Personal Package for R Related Daily Work

####################################################################
#' Update the library
#' (borrowed from laresbernardo/lares)
#' This function lets the user update from repository or local source.
#'
#' @param local Boolean. Install package with local files (TRUE) or Github repository
#' @param force Boolean. Force install if needed
#' @param restart Boolean. Restart session after re-installing the library
#' @export


updateRYLin <- function(local = FALSE, force = FALSE, restart = FALSE) {

  RYLin::loadPackages(c('devtools', 'config'))
  # suppressMessages(require(devtools))
  # suppressMessages(require(config))

  start <- Sys.time()
  message(paste(start,"| Started installation..."))

  if (local == TRUE) {
    devtools::install("~/RYLin/")
  } else {
    devtools::install_github("iyaolin/RYLin", force = force)
  }
  if (restart == TRUE) {
    .rs.restartR()
  }
  message(paste(Sys.time(), "| Duration:", round(difftime(Sys.time(), start, units = "secs"), 2), "s"))
}