data-raw/update_description.R

In NOAA-EDAB/assessmentdata: Provides access to NOAAs stock SMART data

#' read in DESCRIPTION and change version number
#'
#' Increment last digit

update_description <- function(compare, digit) {

  numRows <- unlist(lapply(compare, nrow))
  if (!(any(numRows > 0))) {
    # empty list. No changes found between new and old data
    # no changes to news.md or DESCRIPTION
    version <- NULL
  } else {
    # read in DESCRIPTION file
    con <- file(here::here("DESCRIPTION"))
    tab <- readLines(con)

    #find line with version number on it
    line <- which(grepl("Version", tab))

    # Increment the last digit by 1
    spl <- strsplit(tab[line], ":")
    v <- unlist(strsplit(unlist(spl)[2], "\\."))

    # increment digit
    v[digit] <- as.numeric(v[digit]) + 1
    v[1] <- as.numeric(v[1])
    if (digit == 3) {
    } else if (digit == 2) {
      v[digit + 1] <- 0
    } else if (digit == 1) {
      v[digit + 1] <- 0
      v[digit + 2] <- 0
    }

    newv <- paste0("Version: ", paste0(v, collapse = "."))

    tab[line] <- newv

    # write back to DESCRIPTION
    writeLines(tab, con)
    close(con)
    version <- paste0(v, collapse = ".")
  }
  return(version)
}