test_that("it works", {
skip_on_cran()
result <- duckduck_answer("ggplot", app_name = "duckduckr_development")
expect_true(is.list(result))
expect_true(length(result) > 0)
expect_equal("OK", attr(result, "status"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.