Nothing
x <- c("test")
y <- c("test", "test")
test_that("extending variable", {
expect_equal(extend_var(x, 5), rep("test", 5))
expect_equal(extend_var(y, 5), rep("test", 2))
})
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.