tests/testthat/test-wrap_expression.R

In data-cleaning/validatedb: Validate Data in a Database using 'validate'

describe("wrap an expression with ifelse", {
  exprs <- expression(a=x > 1, b=y < x)
  cw_exprs <- wrap_expression(exprs)
  expect_equal( cw_exprs,
               list( a = quote(ifelse(x>1, 1L, 0L))
                   , b = quote(ifelse(y < x, 1L, 0L))
                   )
              )
})