test_that("dssRbind works", {
dssRbind('double_iris', 'iris', 'iris')
x <- dssVar('double_iris$Sepal.Length', async = FALSE, datasources = opals["server1"])
expect_equal(x$global$len, 80)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.