inline options

Rdatatable · Aug 29, 2024 · adc64ce · adc64ce
1 parent 707ae15
commit adc64ce
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/inst/tests/mergelist.Rraw b/inst/tests/mergelist.Rraw
@@ -32,9 +32,7 @@ test(12.01, cbindlist(data.frame(a=1L), data.frame(b=1L)), error="must be a list
 test(12.02, cbindlist(TRUE, FALSE), error="must be a list")
 test(12.03, cbindlist(list(), NA), error="must be TRUE or FALSE")
 test(12.04, cbindlist(list(data.table(a=1L), 1L)), error="is not of data.table type")
-op = options(datatable.verbose=TRUE)
-test(12.05, cbindlist(list(data.table(a=1:2), data.table(b=1:2))), data.table(a=1:2, b=1:2), output="cbindlist.*took")
-options(op)
+test(12.05, options = c(datatable.verbose=TRUE), cbindlist(list(data.table(a=1:2), data.table(b=1:2))), data.table(a=1:2, b=1:2), output="cbindlist.*took")
 test(12.06, cbindlist(list(data.table(), data.table(a=1:2), data.table(b=1:2))), data.table(a=1:2, b=1:2))
 test(12.07, cbindlist(list(data.table(), data.table(a=1:2), list(b=1:2))), data.table(a=1:2, b=1:2))
 test(12.08, cbindlist(list(data.table(a=integer()), list(b=integer()))), data.table(a=integer(), b=integer()))