Nothing
test_that("where are", {
a <- 12
b <- c(10, 11, 12, 10, 11, 12)
out <- capture_output(cont <- whereAre(a=a, b=b))
out2 <- capture_output(cont <- whereAre(a=a, b=b, verbose = FALSE))
expect_equal(cont, c(3, 6))
expect_equal(out, "Found 2 elements.")
expect_equal(out2, "")
})
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.