context("kitten")
test_that("kittens can be downloaded", {
res <- kitten(200, 300, tempfile())
expect_that(res, is_a("character"))
expect_that(file.exists(res), is_true())
expect_true(file.exists(res))
})
test_that("dogs are excluded", {
expect_that(dog(200, 300, tempfile()), throws_error())
expect_error(dog(200, 300, tempfile()))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.