context("resample")
local({
dat <- tibble(a = 1:5)
test_that("resample_lst works", {
expect_is(resample_lst(dat, list(1:2, 3:4)), "list")
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.