Nothing
unlist.fun <-
function(x,split="",template = "<"){
temp.i <- unlist(strsplit(x,split))
temp.i <- grep(template,temp.i,fixed = T)[1]
temp.i <- temp.i -1
return(temp.i)
}
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.