tests/testthat/test-dssSmooth2d.R

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

test_that("dssSmooth2d works", {
   x <- dssSmooth2d('iris$Sepal.Length', 'iris$Petal.Length', draw.image = TRUE)
   x <- dssSmooth2d('iris$Sepal.Length', 'iris$Petal.Length', draw.image = TRUE, categories = 'iris$Species')
   x <- dssSmooth2d('iris$Sepal.Length', 'iris$Petal.Length', draw.image = TRUE, categories = 'iris$Species',
                    emphasize_level = 2, datasources = opals)
   expect_equal(names(x), c('lims', 'img'))
})