diff options
Diffstat (limited to 'fix-tests.patch')
-rw-r--r-- | fix-tests.patch | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/fix-tests.patch b/fix-tests.patch new file mode 100644 index 000000000000..bfedd4cb7377 --- /dev/null +++ b/fix-tests.patch @@ -0,0 +1,13 @@ +diff --git a/GetoptLong/R/get_options.R b/GetoptLong/R/get_options.R +index a01c65e..97a80ef 100644 +--- a/GetoptLong/R/get_options.R ++++ b/GetoptLong/R/get_options.R +@@ -45,7 +45,7 @@ GetoptLong = function(..., help_head = NULL, help_foot = NULL, envir = parent.fr + argv_str = NULL, template_control = list(), + help_style = GetoptLong.options$help_style) { + +- if(is.null(get_scriptname())) { ++ if(is.null(get_scriptname()) || identical(Sys.getenv("GETOPTLONG_TESTING"), "true")) { + IS_UNDER_COMMAND_LINE = FALSE + } else { + IS_UNDER_COMMAND_LINE = TRUE |