tests/testthat/test-dssIsUnique.R

test_that("dssIsUnique works", {
  rem <- dssIsUnique('iris$Petal.Length', datasources = opals)

  expect_equal(rem, list(server1=FALSE, server2=FALSE))
  session1$u <- c(1,2,3)
  rem <- dssIsUnique('u', datasources = opals["server1"])
  expect_true(rem$server1)
})
sib-swiss/dsSwissKnifeClient documentation built on July 16, 2025, 6:25 p.m.