test_that("getOMLTask", {
with_test_cache({
task = getOMLTask(59)
expect_s3_class(task, "OMLTask")
expect_equal(task$task.id, 59)
expect_equal(task$task.type, "Supervised Classification")
expect_s3_class(task$input$data.set, "OMLDataSet")
expect_data_frame(task$input$data.set$data, nrows = 150, ncols = 5, any.missing = FALSE)
expect_data_frame(as.data.frame(task, nrows = 150, ncols = 5, any.missing = FALSE))
expect_data_table(as.data.table(task, nrows = 150, ncols = 5, any.missing = FALSE))
expect_equal(task$input$data.set, getOMLDataSet(61))
expect_character(task$tags, min.len = 1L, any.missing = FALSE)
expect_list(task$output, names = "unique")
expect_list(task$parameters, names = "unique")
#print
expect_output(print(task), "Task|Tag|Estimation Procedure|Evaluation Measure")
expect_output(print(task$input$estimation.procedure), "Estimation")
task$input$evaluation.measures = ""
task$input$estimation.procedure$type = NA
task$tags = NA
expect_output(print(task), "Task")
task$tags = c(task$tags, rep("a", 80))
expect_output(print(task), "...")
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.