context("files")
fname <- paste(sample(unlist(strsplit("somecrazyfile", ""))), collapse = "")
test_that("file not found is friendly", {
expect_error(expect_warning(tidync(fname)), "No such file or directory")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.