Nothing
#
#Some generic functions
#
GIFTcomment<-function(txt)
{
cat("//", txt, sep="")
}
GIFTcategory<-function(catname)
{
cat("\n\n$CATEGORY: ", catname, "\n\n")
}
GIFTQName<-function(qname)
{
cat("::", qname, "::", sep="")
}
GIFTparse<-function(txt)
{
#Special characters are: ~ = # { }
spchar<-c("~", "=", "#", "{", "}")
for(c in spchar)
{
txt<-gsub(paste("\\", c, sep=""),paste("\\\\", c, sep=""), txt)
}
return(txt)
}
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.