From 862390f22633a5afdfd2272d38eb64f9a480f27b Mon Sep 17 00:00:00 2001
From: Florian Angerer <florian.angerer@oracle.com>
Date: Mon, 22 Jan 2018 14:31:44 +0100
Subject: [PATCH] Fix: Invalid default value for blacklist.
---
com.oracle.truffle.r.test.packages/r/install.packages.R | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/com.oracle.truffle.r.test.packages/r/install.packages.R b/com.oracle.truffle.r.test.packages/r/install.packages.R
index b34e598cb4..f16cc75830 100644
--- a/com.oracle.truffle.r.test.packages/r/install.packages.R
+++ b/com.oracle.truffle.r.test.packages/r/install.packages.R
@@ -240,9 +240,9 @@ create.blacklist.with <- function(blacklist, iter) {
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) {
- v <-blacklist
+ v <- if(is.null(blacklist)) character(0) else blacklist
result <-v
iter <- 1
while (length(v) > 0) {
@@ -871,7 +871,7 @@ parse.args <- function() {
usage()
} else if (a == "--verbose" || a == "-v") {
verbose <<- T
- } else if (a == "-V") {
+ } else if (a == "-V" || a == "--very-verbose") {
verbose <<- T
very.verbose <<- T
} else if (a == "--quiet") {
--
GitLab