test_that("print_info has right names", {
lapply(
textdata:::print_info,
function(x) expect_true(all(names(x) == c("name", "url", "license", "size", "type", "download_mech", "description", "citation")))
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.