tests/testthat/test-jitter.R

test_that(".jitter output is equal to input if first argument is not numeric", {
  x <- mtcars
  expect_identical(.jitter(x), x)
})

test_that(".jitter output is different from input if arguments are good", {
  x <- mtcars
  expect_false(identical(.jitter(x$mpg), x))
})

Try the echarts4r package in your browser

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

echarts4r documentation built on July 9, 2023, 7:26 p.m.