context("write")
test_that("write", {
objects <- list(mtcars = datasets::mtcars, chickwts = datasets::chickwts)
dir <- tempdir()
expect_identical(write_files(named_list(), dir), character(0))
write_files(objects, dir)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.