diff --git a/.gitignore b/.gitignore index 5d2918f..dc4d50a 100644 --- a/.gitignore +++ b/.gitignore @@ -9,4 +9,5 @@ inst/doc optigrab.Rcheck/ optigrab_*.gz - +# binary packages from building using install_local() +R/*/ diff --git a/R/opt_get.R b/R/opt_get.R index f44a31f..49ab812 100644 --- a/R/opt_get.R +++ b/R/opt_get.R @@ -144,7 +144,7 @@ opt_get <- function( ret <- opt_grab( flag=flag, n=n, opts=opts) - # Apply defaults, including trying to coerce to the defailts + # Apply defaults, including trying to coerce to the defaults # class if( ! missing(default) ) { if( is.na(ret) ) @@ -157,7 +157,7 @@ opt_get <- function( if( is.na(ret) && missing(default) && required == TRUE ) stop( call. = FALSE - , "\n\tOption(s): [", flag, "] is required, but was not supplied." + , "\n\tOption(s): [", paste(flag, collapse=", "), "] is required, but was not supplied." ) diff --git a/R/opt_help.R b/R/opt_help.R index 49c00b4..01b5501 100644 --- a/R/opt_help.R +++ b/R/opt_help.R @@ -62,7 +62,7 @@ opt_help <- function( name=c('help','?'), opts=commandArgs() ) { for( nm in names(opts) ) cat( paste(' ', nm, ":", opts[[nm]], sep=" "), sep="\n" ) - if( ! interactive() ) quit( save = FALSE ) + if( ! interactive() ) quit( save = "no" ) return(TRUE)