tests/testthat/test.R

In zedoul/refnr: Refining Data Table Using a Set of Formulas

context("refnr test")

test_that("testcase", {
  formulas <- rbind(c(Name = "Length",
                      Formula = "Sepal.Length + Petal.Length"),
                    c(Name = "Width",
                      Formula = "Sepal.Width + Petal.Width"))
  res <- refnr(iris, formulas)
  expect_equal(res[1,1], 6.5)
})