tests/testthat/test-formula_to_1arg_function.R

test_that("formula_to_function works", {
  f <- formula_to_function(~.x + 3)
  expect_equal(3.5, f(0.5))

  expect_error(formula_to_function('a'), 'character')

})
coolbutuseless/anon documentation built on Jan. 13, 2020, 4:38 a.m.