Nothing
convertLines <- function(source,destination=source,...){
txt <- readLines(con=source,...)
writeLines(text=txt,con=destination,...)
}
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.