library("httr")
test_that("We can search DataONE",
{
resp <- d1_search("Wolkovich", "author")
expect_is(resp, "response")
expect_equal(status_code(resp), 200)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.