library(ctrialsgov)
test_that("sample data loads okay", {
ctgov_load_sample()
res <- ctgov_query(description_kw = "cancer")
expect_equal(ncol(res), 30L)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.