attic/testthat/test_base_runSQLQuery.R

context("runSQLQuery")

test_that("runSQLQuery", {
  res = runSQLQuery("SELECT * FROM task")
  expect_true(is.data.frame(res) && nrow(res) > 1  && ncol(res) == 2 && is.numeric(res$task_id))
})  
openml/openml-r documentation built on Oct. 21, 2022, 2:16 a.m.