Nothing
# test_that("do_duplicateds works", {
x <- rep(c(-.Machine$integer.max, -1, 4, 2),
c(3, 4, 5, 6))
expect_equal(duplicated(x), duplicated(x))
x <- as.integer(x)
expect_equal(duplicated(x), duplicated(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.