tests/testthat/helper.R

parallel_ns <- asNamespace("parallel")
if (bindingIsLocked("detectCores", parallel_ns)) {
  unlockBinding("detectCores", parallel_ns)
}
assign("detectCores", function(all.tests = FALSE, logical = FALSE) 1L, envir = parallel_ns)
lockBinding("detectCores", parallel_ns)

Try the dpm package in your browser

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

dpm documentation built on April 7, 2026, 1:06 a.m.