Skip to content
Snippets Groups Projects
Commit 862390f2 authored by Florian Angerer's avatar Florian Angerer
Browse files

Fix: Invalid default value for blacklist.

parent 1686bae6
No related branches found
No related tags found
No related merge requests found
...@@ -240,9 +240,9 @@ create.blacklist.with <- function(blacklist, iter) { ...@@ -240,9 +240,9 @@ create.blacklist.with <- function(blacklist, iter) {
this.blacklist this.blacklist
} }
# iteratively adds to blacklist until no new blackisted packages are found # iteratively adds to blacklist until no new blacklisted packages are found
create.blacklist.iter <- function(blacklist) { create.blacklist.iter <- function(blacklist) {
v <-blacklist v <- if(is.null(blacklist)) character(0) else blacklist
result <-v result <-v
iter <- 1 iter <- 1
while (length(v) > 0) { while (length(v) > 0) {
...@@ -871,7 +871,7 @@ parse.args <- function() { ...@@ -871,7 +871,7 @@ parse.args <- function() {
usage() usage()
} else if (a == "--verbose" || a == "-v") { } else if (a == "--verbose" || a == "-v") {
verbose <<- T verbose <<- T
} else if (a == "-V") { } else if (a == "-V" || a == "--very-verbose") {
verbose <<- T verbose <<- T
very.verbose <<- T very.verbose <<- T
} else if (a == "--quiet") { } else if (a == "--quiet") {
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment