context("snaputils")
test_that("resource paths are returned", {
x <- snap_res()
expect_is(x, "character")
expect_identical(basename(x), "images")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.