test_that("write_file_info() works", {
f <- write_file_info
expect_error(f())
f(data.frame(path = "/a/b/c"), (file <- tempfile()))
expect_true(file.exists(file))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.