tests/testthat/test-dssIsUnique.R

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

  expect_equal(rem, list(local1=FALSE, local2=FALSE))
  opals$local1$envir$u <- c(1,2,3)
  rem <- dssIsUnique('u', datasources = opals["local1"])
  expect_true(rem$local1)
})
IulianD/dsSwissKnifeClient documentation built on June 23, 2020, 4:38 p.m.