Nothing
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))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.