tests/testthat/test-sklearnClassifierHelpers.R

In OHDSI/PatientLevelPrediction: Developing patient level prediction using data in the OMOP Common Data Model

test_that("listCartesian works", {
  
  allList <- list(a=list(1,2), b=list(NULL, 'auto'), c=list(-1))
  
  paramLists <- listCartesian(allList)
  
  expect_equal(length(paramLists), 2*2*1)
  expect_equal(names(paramLists[[1]]), c('a', 'b', 'c'))
  expect_equal(length(paramLists[[1]]), 3)
  
})