inst/test-db/nbrOfWorkers.R

make_test(title = "nbrOfWorkers()", tags = c("nbrOfWorkers"), {
  n <- nbrOfWorkers()
  message(sprintf("nbrOfWorkers: %g", n))
  stopifnot(is.numeric(n), length(n) == 1L, n >= 1L)
})

Try the future.tests package in your browser

Any scripts or data that you put into this service are public.

future.tests documentation built on May 31, 2023, 9:28 p.m.