test_that("use", {
filename <- tempfile()
file.create(filename)
expect_true(file.exists(filename))
expect_silent(filename)
file.remove(filename)
expect_false(file.exists(filename))
expect_error(check_file_exists(filename))
expect_error(check_file_exists(filename), filename)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.