context("runSQLQuery")
test_that("runSQLQuery", {
res = runSQLQuery("SELECT * FROM task")
expect_true(is.data.frame(res) && nrow(res) > 1 && ncol(res) == 2 && is.numeric(res$task_id))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.