Show version in script help messages

grip-on-software · Jul 26, 2024 · 85ac3f3 · 85ac3f3
1 parent 31977b0
commit 85ac3f3
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/include/args.r b/include/args.r
@@ -18,6 +18,7 @@
 
 if (!exists('INC_ARGS_R')) {
     INC_ARGS_R <- T
+    VERSION <- "0.0.1"
 
     library(optparse)
 
@@ -42,7 +43,11 @@ if (!exists('INC_ARGS_R')) {
             }
             index <- index + 1
         }
-        parser <<- OptionParser(option_list=options, description=desc)
+        parser <<- OptionParser(option_list=options,
+                                description=paste(desc,
+                                                  paste("GROS data analysis",
+                                                        "version", VERSION),
+                                                  sep="\n"))
 
         if (exists('INC_LOG_R')) {
             parser <<- add_option(parser, c("-l", "--log"), default='WARNING',