
get_threads() returns the current number of threads used for parallel
operations. set_threads() sets it.
get_threads()
set_threads(n)get_threads() returns an integer. set_threads() returns the new
value invisibly.
(nthreads <- svAssert::get_threads()) # 1 by default
#> [1] 1
(svAssert::set_threads(parallel::detectCores() - 1L))
#> [1] 3
# Now svAssert function use parallelism...
# ... your code here...
# Reset it
(svAssert::set_threads(nthreads))
#> [1] 1
rm(nthreads)