1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
context("parallel apply")
test_that("parallelLapply", {
parallelStart(mode = "local")
ys = parallelLapply(1:2, identity)
expect_equal(ys, as.list(1:2))
xs = list(a = 1, b = 2)
ys = parallelLapply(xs, identity)
expect_equal(ys, xs)
parallelStop()
})
test_that("parallelSapply", {
parallelStart(mode = "local")
xs = c("a", "b")
ys = parallelSapply(xs, identity, use.names = FALSE)
expect_equal(ys, xs)
ys = parallelSapply(xs, identity, use.names = TRUE)
expect_equal(ys, setNames(xs, xs))
expect_equal(
parallelSapply(1:2, identity),
sapply(1:2, identity)
)
parallelStop()
})
|
