tests/testthat/test_local_getOMLTask.R

In openml/r: Open Machine Learning and Open Data Platform

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), "...")
 })
})