values() -> value() since the former is about to get deprecated [ci skip]

HenrikBengtsson · HenrikBengtsson · commit cac629f5f9bc · 2020-10-15T15:47:42.000-07:00
diff --git a/tests/batchtools_custom.R b/tests/batchtools_custom.R
@@ -64,7 +64,7 @@ x <- listenv()
 for (ii in 1:2) {
   x[[ii]] <- batchtools_custom({ ii }, globals = TRUE, cluster.functions = cf)
 }
-v <- unlist(values(x))
+v <- unlist(value(x))
 stopifnot(all(v == 1:2))  ## Make sure globals are frozen
 
 
diff --git a/tests/batchtools_interactive.R b/tests/batchtools_interactive.R
@@ -45,7 +45,7 @@ stopifnot(v == 0)
 message("*** batchtools_interactive() with globals (tricky)")
 x <- listenv()
 for (ii in 1:2) x[[ii]] <- batchtools_interactive({ ii }, globals = TRUE)
-v <- unlist(values(x))
+v <- unlist(value(x))
 stopifnot(all(v == 1:2))  ## Make sure globals are frozen
 
 
diff --git a/tests/batchtools_local.R b/tests/batchtools_local.R
@@ -45,7 +45,7 @@ stopifnot(v == 0)
 message("*** batchtools_local() with globals (tricky)")
 x <- listenv()
 for (ii in 1:2) x[[ii]] <- batchtools_local({ ii }, globals = TRUE)
-v <- unlist(values(x))
+v <- unlist(value(x))
 stopifnot(all(v == 1:2))  ## Make sure globals are frozen
 
 
diff --git a/tests/batchtools_multicore.R b/tests/batchtools_multicore.R
@@ -69,7 +69,7 @@ for (cores in 1:min(2L, availableCores("multicore"))) {
     }
     mprintf(" - Resolving %d batchtools_multicore futures\n", length(x))
     if (globals || f$config$reg$cluster.functions$name == "Multicore") {
-      v <- unlist(values(x))
+      v <- unlist(value(x))
       stopifnot(all(v == 1:2))
     } else {
       v <- lapply(x, FUN = function(f) tryCatch(value(f), error = identity))

Original file line number	Diff line number	Diff line change
`@@ -64,7 +64,7 @@ x <- listenv()`
`64`	`64`	`for (ii in 1:2) {`
`65`	`65`	`x[[ii]] <- batchtools_custom({ ii }, globals = TRUE, cluster.functions = cf)`
`66`	`66`	`}`
`67`		`-v <- unlist(values(x))`
	`67`	`+v <- unlist(value(x))`
`68`	`68`	`stopifnot(all(v == 1:2)) ## Make sure globals are frozen`
`69`	`69`
`70`	`70`
Original file line number	Diff line number	Diff line change
`@@ -69,7 +69,7 @@ for (cores in 1:min(2L, availableCores("multicore"))) {`
`69`	`69`	`}`
`70`	`70`	`mprintf(" - Resolving %d batchtools_multicore futures\n", length(x))`
`71`	`71`	`if (globals \|\| f$config$reg$cluster.functions$name == "Multicore") {`
`72`		`- v <- unlist(values(x))`
	`72`	`+ v <- unlist(value(x))`
`73`	`73`	`stopifnot(all(v == 1:2))`
`74`	`74`	`} else {`
`75`	`75`	`v <- lapply(x, FUN = function(f) tryCatch(value(f), error = identity))`