# return
testthat::context('return')
testthat::test_that('return data is valid', {
# setup
moo <- function() 'moooo'
doo <- function() data.frame(a=0L:9L,
b=10L:19L)
# return is named list
testthat::expect_identical(runWaterfall(list(function() 111L,
function(a) a + 2L)),
list(task1=111L,
task2=113L))
# data.frame's base type is list
testthat::expect_type(runSeries(list(function() 111L,
doo))$task2,
'list')
# returns from children
testthat::expect_identical(runParallel(list(function() F,
function() NULL)),
list(task1=FALSE,
task2=NULL))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.