tests/testthat/test-dssDeriveColumn.R

In IulianD/dsSwissKnifeClient: DataSHIELD Tools and Utilities - client side

test_that("dssDeriveColumn works", {
  dssSubset('iris_der', 'iris', row.filter = '1==1', datasources = opals)
   dssDeriveColumn('iris_der', 'new_col', 'Sepal.Length/round(2.2)', datasources = opals)
  data('iris', envir = environment())
  iris$new_col <- iris$Sepal.Length/round(2.2)
  x <- dssMean('iris_der$new_col', datasources = opals)
  y <- mean(iris$new_col)
  expect_equal(x$global, y)
  expect_error(dssDeriveColumn('iris_der', 'new_col', 'Sepal.Length[1]', async = FALSE, datasources = opals), regexp = 'individual elements')

  expect_error(dssDeriveColumn('iris_der', 'new_col', 'rnorm(length(iris$Sepal.Length), mean = mean(iris$Sepal.Length),1)', async = FALSE, datasources = opals), regexp = 'rnorm, mean not allowed here')

})