context("Learners")
test_that("summary", {
x = mlr.learners$summary()
expect_data_table(x, min.rows = 2, key = "id")
expect_character(x$name, any.missing = FALSE)
expect_character(x$task.type, any.missing = FALSE)
expect_character(x$id, any.missing = FALSE)
expect_list(x$properties, types = "character")
expect_list(x$packages, types = "character")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.