Nothing
str.set <-
function(object, ...)
{
str(unclass(object), ...)
writeLines(" - attr(*, \"class\")= chr \"set\"")
}
str.gset <-
function(object, ...)
{
str(unclass(object), ...)
writeLines(" - attr(*, \"class\")= chr \"gset\"")
}
str.cset <-
function(object, ...)
{
str(unclass(object), ...)
writeLines(" - attr(*, \"class\")= chr \"cset\"")
}
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.