Nothing
inner_Add_Symbol <- function(character,symbol="+"){
if (length(character)>=2){
for (character.i in 1:length(character)) {
if (character.i==1){
adj=character[1]
}else{
adj=paste0(adj,symbol,character[character.i])
}
}
}else{
adj=character
}
adj
}
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.