context("listOMLRunResults")
test_that("listOMLRunResults", {
# FIXME: reenable test
# rr = listOMLRunResults(task.id = 1L)
# expect_is(rr, "data.frame")
# expect_true(nrow(rr) > 100L && ncol(rr) >= 20L)
# expect_true(all(c("run.id", "setup.id", "implementation.id", "implementation", "task.id", "task.type.id", "estim.proc") %in% names(rr)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.