context("Checking ploc")
test_that("ploc sets to a preset location when `options(dit =` is set",{
locs <- file.path(Sys.getenv("USERPROFILE"), "Desktop")
options(dir = locs)
expect_equal(ploc("DELETE_ME"), file.path(locs, "DELETE_ME"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.