tests/testthat/test-dssRanger.R

In sib-swiss/dsSwissKnifeClient: DataSHIELD Tools and Utilities - client side

test_that("dssRanger ranger works with formula", {
  ranger_model <- dssRanger('ranger', newobj = 'remote_ranger', async = TRUE, datasources = opals, formula = 'Sepal.Length ~ .' ,data ='iris', importance = 'permutation')
  expect_equal(ranger_model$server1$importance.mode, 'permutation')
})


test_that("dssRanger ranger works with x and y", {
  ranger_model <- dssRanger('ranger', newobj = 'remote_ranger', async = TRUE, datasources = opals, x = c('iris$Sepal.Width', 'iris$Sepal.Length'), y = 'iris$Petal.Length', importance = 'permutation')
  expect_equal(ranger_model$server1$importance.mode, 'permutation')
})


test_that("dssRanger ranger works with x as a separate dataframe", {
  dssSubset('ranger_x', 'iris', col.filter = "c('Sepal.Length', 'Sepal.Width')")
  ranger_model <- dssRanger('ranger', newobj = 'remote_ranger', async = TRUE, datasources = opals, x = 'ranger_x', y = 'iris$Petal.Length', importance = 'permutation')
  expect_equal(ranger_model$server1$importance.mode, 'permutation')
})

test_that("dssRanger predict works ", {
  ranger_prediction <- dssRanger('predict', newobj = 'remote_prediction', async = TRUE, datasources = opals, data = 'iris', object = 'remote_ranger')
  expect_equal(ranger_model$server1$importance.mode, 'permutation')
})