tests/testthat/test-dssUwot.R

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

test_that("remote umap works", {
 iris_umap <- dssUwot('umap', 'iris',async = TRUE, datasources = opals[1], n_neighbors = 5, learning_rate = 0.5, init = "random", n_epochs = 20, ret_model = TRUE, ret_extra = 'fgraph')
 expect_equal(length(iris_umap$server1$embedding), 80)
})

test_that("remote umap transform works with a model from the local session", {

 # iris_umap1 <- dssUwot('umap', 'iris',async = TRUE, datasources = opals[1], n_neighbors = 5, learning_rate = 0.5, init = "pca", n_epochs = 20, ret_model = TRUE)
  iris_umap1 <- uwot::umap(iris[,1:4], n_neighbors = 5, learning_rate = 0.5, init = "pca", n_epochs = 20, ret_model = TRUE)
  iris_umap2 <- dssUwot('umap_transform', 'iris', model = iris_umap1, async = TRUE, datasources = opals[2])
 expect_equal(length(iris_umap2$server2), 220)
})