In alexandretorrejano/apmrt: Makes my life easier

{
  if("apmrt"%in%rownames(installed.packages())){
    ver1<-packageVersion("apmrt")
    remove.packages("apmrt")
  } else{
    ver1<-"Not Installed"
  }
  .rs.restartR()
  cat("Done. Proceed with install chunk after session resumes.")
}

{
  #requires RTools installation
  if(!require('pacman')){install.packages('pacman')}
  devtools::install_github("alexandretorrejano/apmrt",force=TRUE)
  library(apmrt)
  if("ver1"%in%ls()){
    cat(paste("\nPrevious Version:   ",ver1))
    rm(ver1)
  }
  cat(paste(  "\nInstalled Version:  ",packageVersion("apmrt")))
}