context("scidb checks")
test_that("scidb_test_build_literal",{
build_lit_val = formulate_build_literal_query(c(1:5))
db <- scidb::scidbconnect()
res <- scidb::iquery(db, build_lit_val, return=TRUE)
expect_equal(c(ncol(res),nrow(res)),c(2,5))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.