context("example")
test_that("time series example is generated correctly", {
ts <- sample_time_series(n = 10)
expect_true(is_collection(ts))
expect_length(list.files(ts$storage, recursive = T, pattern = '.*rds$'), 20)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.