R/bumpVersion.R

In environmentalinformatics-marburg/Reot: Empirical Orthogonal Teleconnections in R

bumpVersion <- function(major, minor, patch, pkg.repo= ".") {
  
  new.ver <- paste(major, minor, patch, sep = ".")
  
  ### DESCRIPTION file
  desc <- readLines(paste(pkg.repo, "DESCRIPTION", sep = "/"))
  old.ver <- substr(desc[grep("Version*", desc)], 10, 14)
  
  new <- as.numeric(unlist(strsplit(new.ver, "\\.")))
  old <- as.numeric(unlist(strsplit(old.ver, "\\.")))
  
  new <- new[1] * 100 + new[2] * 10 + new[3]
  old <- old[1] * 100 + old[2] * 10 + old[3]
  
  if (old > new) stop("new version number needs to be higher than old",
                       "\n\n", "old version number is: ", old.ver)
  else {
    
    desc[grep("Version*", desc)] <- paste("Version: ", new.ver, sep = "")
    desc[grep("Date*", desc)] <- paste("Date:", Sys.Date(), sep = " ")
    
    writeLines(desc, paste(pkg.repo, "DESCRIPTION", sep = "/"))
    
    ### pkg.name-package.Rd file
    pkg.name <- substr(desc[grep(glob2rx("Package:*"), desc)], 10, 
                       nchar(desc[grep(glob2rx("Package:*"), desc)]))
    
    pkg.doc <- readLines(paste(pkg.repo, "man", 
                               paste(pkg.name, "-package.Rd", sep = ""),
                               sep = "/"))
    
    pkg.doc[grep("Version*", pkg.doc)] <- paste("Version: \\tab ", 
                                                new.ver, "\\cr", sep = "")
    pkg.doc[grep("Date*", pkg.doc)] <- paste("Date: \\tab ", 
                                             Sys.Date(), "\\cr", sep = "")
    
    writeLines(pkg.doc, paste(pkg.repo, "man", 
                              paste(pkg.name, "-package.Rd", sep = ""),
                              sep = "/"))
  }

}