From adc64cec6eb3e015d2097b7bcbd36e8a51a34682 Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Thu, 29 Aug 2024 11:47:31 -0700 Subject: [PATCH] inline options --- inst/tests/mergelist.Rraw | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/inst/tests/mergelist.Rraw b/inst/tests/mergelist.Rraw index 385e1ae94..9e6835cb7 100644 --- 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()))