Nothing
as.seq <-
function(op){
if (!is.logical(op)) op <- bool(op)
seq(length(op))[op]
}
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.