Nothing
pos.char <-
function(string,char)
{ zz <- stringf(as.character(string))
if (char%in%zz)
{ z <- which (zz==char)} else
{ z <- NA }
# returns all occurrences
return (z[1])
}
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.