test_that("dssColNames works", {
orig <- dssColNames('iris', datasources = opals)
dssColNames('iris', value = c('sl', 'sw', 'pl', 'pw', 'sp'), datasources = opals)
expect_equal(dssColNames('iris', datasources = opals)[[1]], c('sl', 'sw', 'pl', 'pw', 'sp') )
dssColNames('iris', orig[[1]], datasources = opals)
expect_equal(dssColNames('iris', datasources = opals)[[2]], orig[[1]])
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.