context("test_get_title - unit tests")
test_that("get_title('ark:/57799/b9j69h') returns expected value", {
load("demo-config.rda")
server <- server(demo_config)
expect_message(get_title("ark:/57799/b9j69h"), server = server)
expect_identical(
get_title("ark:/57799/b9j69h", server = server),
"AGR Data set with identifier-based references to data in cloud storage")
})
test_that("get_title(minid) returns expected value", {
load("demo.rda")
expect_identical(get_title(demo),
paste0("AGR Data set with identifier-based references ",
"todata in cloud storage"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.