test_that("unlink2", {
object <- tempdir2()
expect_true(dir.exists(object))
out <- unlink2(object)
expect_false(dir.exists(object))
expect_identical(out, 0L)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.