library("httr")
test_that("We can get a file from DataONE",
{
resp <- d1_get("doi:10.5063/AA/wolkovich.24.1")
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.