chore: CRAN release

trevorld · Sep 16, 2019 · c129526 · c129526
1 parent 66acec5
commit c129526
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,7 +2,7 @@ Encoding: UTF-8
 Package: optparse
 Type: Package
 Title: Command Line Option Parser
-Version: 1.6.3-1
+Version: 1.6.4
 Authors@R: c(person("Trevor L", "Davis", role = c("aut", "cre"), email="[email protected]"),
     person("Allen", "Day", role="ctb", comment="Some documentation and examples ported from the getopt package."),
     person("Python Software Foundation", role="ctb", comment="Some documentation from the optparse Python module."),

diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,4 @@
-optparse 1.6.3
+optparse 1.6.4
 ==============
 
 * Fixes bug in printing help for ``action=="callback"`` when ``metavar==NULL`` (#29).

diff --git a/R/optparse.R b/R/optparse.R
@@ -227,15 +227,16 @@ OptionParser <- function(usage = "usage: %prog [options]", option_list=list(),
 #'        help="Standard deviation if generator == \"rnorm\" [default %default]")
 #'
 #' @export
-make_option <- function(opt_str, action="store", type=NULL, dest=NULL, default=NULL, help="", metavar=NULL, callback=NULL, callback_args=NULL) {
+make_option <- function(opt_str, action="store", type=NULL, dest=NULL, default=NULL, 
+                        help="", metavar=NULL, callback=NULL, callback_args=NULL) {
 
     # flags
     short_flag <- opt_str[grepl("^-[[:alpha:]]", opt_str)]
     if(length(short_flag) == 0) {
         short_flag <- NA_character_ 
     } else {
         if (nchar(short_flag) > 2) {
-            stop(paste(short_flag, "must only be a '-' and a single letter"))
+            stop(paste("Short flag", short_flag, "must only be a '-' and a single letter"))
         }
     }
     long_flag <- opt_str[grepl("^--[[:alpha:]]", opt_str)]