Nothing
test_that("mlr_tasks", {
expect_dictionary(mlr_tasks, min_items = 1L)
keys = mlr_tasks$keys()
for (key in keys) {
t = tsk(key)
expect_task_supervised(t)
}
})
test_that("load_x", {
ns = getNamespace("mlr3")
nn = names(ns)
nn = nn[startsWith(names(ns), "load_task")]
for (fun in nn) {
fun = get(fun, envir = ns, mode = "function")
expect_task_supervised(fun())
}
})
test_that("tasks are cloned", {
if (packageVersion("mlr3misc") >= "0.9.2") {
task = tsk("iris")
mlr_tasks$add("foo", task)
expect_different_address(task, tsk("foo"))
mlr_tasks$remove("foo")
}
})
test_that("as.data.table(..., objects = TRUE)", {
tab = as.data.table(mlr_tasks, objects = TRUE)
expect_data_table(tab)
expect_list(tab$object, "Task", any.missing = FALSE)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.