test_that("run_parallel", {
f <- function(i) { return(i)}
#a <- run_parallel(seq(1, 10), f)
#expect_equal(unlist(a), seq(1, 10))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.