Nothing
# APPEND
# ----------
library(magrittr)
source("utils.r")
context('vector append')
test_that('vector-append', {
x. <- 1:5 %>% sticky
x. %>% expect_is('sticky')
x. <- x. %>% set_foo
x. <- x. %>% append(1:3)
x. %>% expect_is('sticky')
x. %>% attr('foo') %>% expect_equal('bar')
})
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.