R/updateCustomPackage.R

In Sumpfohreule/MyUtilities: Collection of general functions which are useful in multiple contexts

#' Wrapper for easy package updating
#'
#' Wraps functions for documenting and installing packages in a short command
#'
#' @param incrementing_level If Version number of this Package should be
#' increased (one of "Development", "Patch", "Minor", "Major")
#' @param package.location location/name of the package. Can be an indirect path
#' @export
#'
updateCustomPackage <- function(incrementing_level = "None",
                                package.location = getwd()) {
  if (incrementing_level %in% c("Development", "Patch", "Minor", "Major")) {
    incrementPackageVersion(package.location,
      incrementing_level = incrementing_level
    )
  }
  original.warn.value <- options("warn")[[1]]
  options(warn = 1)
  devtools::document(package.location)
  devtools::build(package.location)
  devtools::install(package.location, upgrade = FALSE)
  options(warn = original.warn.value)
}