tests/testthat/test-inv.R

context("invert scales")

test_that("inverting is right", {
  expect_equal(inv(1:5, 1, 5), c(5:1))
  expect_equal(inv(-3:3, -3, 3), 3:-3)
})

Try the tadaatoolbox package in your browser

Any scripts or data that you put into this service are public.

tadaatoolbox documentation built on July 2, 2020, 2:30 a.m.