tests/testthat/test-dssRbind.R

test_that("dssRbind works", {
 dssRbind('double_iris', 'iris', 'iris', datasources = opals)
 x <- dssVar('double_iris$Sepal.Length', async = FALSE,  datasources = opals["local1"])
 expect_equal(x$global$len, 80)
})
IulianD/dsSwissKnifeClient documentation built on June 23, 2020, 4:38 p.m.