tests/testthat/test-parallel.R

test_that("run_parallel", {
    f <- function(i) { return(i)}
    #a <- run_parallel(seq(1, 10), f)
    #expect_equal(unlist(a), seq(1, 10))
})
byzheng/myutils documentation built on Oct. 3, 2024, 1:35 a.m.