context("download all tasks")
# we download "most" safe tasks / dsets, because large ones might cause runtime and mem problems currently
test_that("download all tasks", {
# skip_on_cran()
# skip_on_travis()
# measures = listOMLEvaluationMeasures(session.hash)$name
# ttypes = listOMLTaskTypes(session.hash)$id
# for (type in ttypes) {
# tl = listOMLTasks(type = type, session.hash = session.hash)
# tids = tl[tl$status == "active" & tl$NumberOfInstances <= 10000 & tl$NumberOfFeatures <= 100, "task_id"]
# for (id in tids) {
# print(id)
# task = getOMLTask(id, session.hash)
# tf = task$input$data.set$target.features
# expect_true(is.character(tf) && length(tf) %in% 0:1 && !is.na(tf))
# ds = task$input$data.set$data
# expect_true(is.data.frame(ds) && nrow(ds) > 1 && ncol(ds) >= 1)
# ems = task$input$evaluation.measures
# expect_true(ems %in% measures)
# }
# }
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.