context("using query for webdata")
test_that("webdata query returns a datagroup", {
testthat::skip_on_cran()
datasets <<- query('webdata')
expect_is(datasets, 'datagroup')
})
test_that("webdata query returns a list", {
testthat::skip_on_cran()
wd <- webdata(datasets[4])
expect_is(query(wd,'variables'), 'character')
})
test_that("webdata title returns a title", {
testthat::skip_on_cran()
expect_is(title(datasets[4]), 'character')
})
test_that("webdata url returns a url", {
testthat::skip_on_cran()
expect_is(url(datasets[4]), 'character')
expect_is(url(datasets[4:5]), 'character')
})
test_that("webdata abstract returns an abstract", {
testthat::skip_on_cran()
expect_is(url(datasets[4]), 'character')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.