library(testthat)
img <- load_image()
adv <- get_advice()
test_that("Check data types", {
expect_error(print_advice(img, not_string))
expect_error(print_advice(not_image, adv))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.