R/test_parallel.R

Defines functions test_parallel

test_parallel <- function(nproc, time = 2) {
  system.time(
    future.apply::future_sapply(
      seq_len(nproc),
      function(iproc)
        Sys.sleep(time)
    )
  )
}
sma-hsph/smar documentation built on July 30, 2022, 2:34 p.m.