tests/testthat/test_list_oml_data.R

In mlr-org/mlr3oml: Connector Between 'mlr3' and 'OpenML'

skip_on_cran()

test_that("list_oml_data", {
  tab = list_oml_data(limit = 10)
  expect_data_table(tab, nrows = 10, min.cols = 10)

  expect_names(names(tab),
    type = "strict",
    must.include = c("data_id", "name", "version", "status", "NumberOfFeatures")
  )

  expect_data_table(list_oml_data(data_id = c(9, 11)), nrows = 2)
  expect_data_table(list_oml_data(data_id = 1), nrows = 0L, ncols = 0L)

  expect_data_table(list_oml_data(data_id = 999999999), nrows = 0L)
})


# listing data from test server does not work:
# https://github.com/openml/OpenML/issues/1159#issuecomment-1225720284