inst/tests/test-replace-variable.R

In robertzk/syberiaMungebits: Common mungebits used with Syberia projects.

context('replace_variable')

test_that('it can replace variable with a one argument function', {
  iris2 <- iris
  replace_variable(iris2, function(Sepal.Width) Sepal.Width + 1)
  expect_equal(iris2$Sepal.Width, iris$Sepal.Width + 1)
})

test_that('it can replace variable with a two argument function', {
  iris2 <- iris
  replace_variable(iris2, function(Sepal.Width, Sepal.Length) Sepal.Width + Sepal.Length)
  expect_equal(iris2$Sepal.Width, iris$Sepal.Width + iris$Sepal.Length)
})