context("test-lags.R")
test_that("lags produce correct number of vbls", {
expect_equal(
mutate(mtcars, !!!rutils::lags("gear", 5)) %>%
ncol(),
16
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.