version_bump.R

#' Bump version based on version instructions in commit
#' or automatically for cron jobs
#' @param commit latest commit
#' @param cron is it a cron job (logical)
#' @param changes are there any changed files (logical)
#' 

bump_version <- function(commit, cron, changes) {

current_ver <- semver::parse_version(readLines("version.txt"))

if (cron==TRUE) {
  if (changes==TRUE) { # for cron jobs, only bump if update_data.R resulted in changed files
# Cron job with new data, increment minor version
new_ver <- semver::increment_version(current_ver, "minor", 1L)
    }
} else { # this is triggered by an update to Main or by a PR on a branch
  # parse the most recent commit for version instructions 
  
  if (grepl("\\[no version bump\\]", commit, ignore.case = TRUE))
  {
    new_ver <- current_ver
    paste("No version bump")
  } else if (grepl("\\[major\\]", commit, ignore.case = TRUE)) {
    new_ver <- semver::increment_version(current_ver, "major", 1L)
    print("Bumping major version")
  } else if (grepl("\\[minor\\]", commit, ignore.case = TRUE)) {
    new_ver <- semver::increment_version(current_ver, "minor", 1L)
    print("Bumping minor version")
  } else if (grepl("\\[patch\\]", commit, ignore.case = TRUE)) {
    new_ver <- semver::increment_version(current_ver, "patch", 1L)
    print("Bumping patch version")
  } else {
    stop(paste("The final commit message in a set of changes must be tagged",
               "with version increment information.\nOptions include",
               "[major], [minor], [patch], and [no version bump].\n",
               "The last commit in this set of changes is:\n",
               commit))
  }
}

writeLines(as.character(new_ver), "version.txt") 
  
}