Nothing
suppressPackageStartupMessages(library(dequer))
d <- deque()
for (i in 1:2) pushback(d, i)
test <- capture.output(peek(d))
truth <- c("[[1]]", "[1] 1", "")
stopifnot(all.equal(test, truth))
test <- capture.output(peekback(d))
truth <- c("[[1]]", "[1] 2", "")
stopifnot(all.equal(test, truth))
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.