Nothing
textfun <-
function(text, speed = 0.05)
{
text <- strsplit(text,""," ")[[1L]]
Sys.sleep(speed)
for(w in text) {
cat(w)
Sys.sleep(speed)
}
Sys.sleep(speed)
cat("\n")
return(invisible(NULL))
}
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.