.gitUpdate.R

desc <- commandArgs(TRUE)
if (!length(desc)) {
   a <- readLines("DESCRIPTION")
   if (length(ind <- grep("Version:",a)))
      desc <- gsub("Version:\\s*","",a[ind])
   else
      desc <- "ongoing"
}
system("git add -A")
if (!system(paste0("git commit -m",dQuote(desc))))
   system("git push")
nplatonov/ursa documentation built on Feb. 2, 2024, 4:08 a.m.