attic/testthat/test_base_upload_run.R

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

context("upload run")

test_that("upload run", {
  hash = authenticateUser("openml.rteam@gmail.com", "testpassword")
  
  lrn = makeLearner("classif.JRip")
  flow.id = uploadMlrLearner(lrn, hash)
  expect_is(flow.id, "integer")
  
  task = downloadOMLTask(4)
  res = runTask(task, lrn) 
  
  run.id = uploadOpenMLRun(task, lrn, flow.id, res, session.hash = hash)
  expect_is(run.id, "integer")
  
  lrn$par.vals = list(F = 2, N = 1)
  res = runTask(task, lrn)
  
  run.id2 = uploadOpenMLRun(task, lrn, flow.id, res, session.hash = hash)
  expect_is(run.id, "integer")
  rr = downloadOpenMLRunResults(run.id2)
  expect_true(all(extractSubList(rr$parameter.setting, element = "name") == c("F", "N")))
  expect_true(all(extractSubList(rr$parameter.setting, element = "value") == c("2", "1")))
})