mpadge.tngl.sh
dot dot dotfiles
1#!/usr/bin/env Rscript
2
3s <- gert::git_status()
4chk <- ("DESCRIPTION" %in% s$file &&
5 (s$status [s$file == "DESCRIPTION"] == "modified" |
6 s$status [s$file == "DESCRIPTION"] == "new"))
7if (!chk)
8 stop ("DESCRIPTION has not been updated")
9
10f <- file.path (rprojroot::find_root("DESCRIPTION"), "DESCRIPTION")
11x <- system2 ("git", args = c ("diff", "--cached", "-U0", f), stdout = TRUE)
12if (!any (grepl ("^\\+Version", x)))
13 stop ("Version number in DESCRIPTION has not been incremented")