tests/async/test-sequence.R
In r-lib/pkgcache: Cache 'CRAN'-Like Metadata and R Packages
test_that("async_sequence", {
add1 <- function(n) { n ; delay(10/1000)$then(function(value) n + 1) }
mul3 <- function(n) { n ; delay(10/1000)$then(function(value) n * 3) }
add1mul3 <- async_sequence(add1, mul3)
result <- synchronise(add1mul3(4))
expect_equal(result, 15)
})
r-lib/pkgcache documentation built on April 7, 2024, 5:57 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("async_sequence", {
add1 <- function(n) { n ; delay(10/1000)$then(function(value) n + 1) }
mul3 <- function(n) { n ; delay(10/1000)$then(function(value) n * 3) }
add1mul3 <- async_sequence(add1, mul3)
result <- synchronise(add1mul3(4))
expect_equal(result, 15)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.