test_that("get_homedir() works", {
expect_is(get_homedir("unix"), "character")
expect_is(get_homedir("windows"), "character")
home <- get_homedir()
expect_true(grepl(user(), home))
expect_true(file.exists(home))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.