Nothing
`bracket` <-
function(x,close=FALSE,...)sub(
'(^</[^ ]+) .+>$',
'\\1>',
do.call(
paste,
c(
list(
sep='',
'<',
ifelse(close, '/' , ''),
x
),
lapply(names(list(...)),function(x)attribute(list(...)[[x]],tag=x)),
list(
'>'
)
)
)
)
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.