Nothing
context("fork")
test_that("fork works", {
skip_on_cran()
forked <- gist(id='1642874') %>% fork()
expect_equal(length(forked), 18)
expect_is(forked, "gist")
# cleanup
suppressMessages(forked %>% delete())
})
test_that("forks works", {
skip_on_cran()
expect_equal(length(gist(id='1642874') %>% forks(per_page=2)), 2)
hh <- gist(id='1642874') %>% forks(per_page=2)
expect_is(hh[[1]], "gist")
})
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.