# busca y quita las ñ por n y remplaza los espacion por -
a.letter<-function(x){
if(str_detect(x," ")==TRUE){
x<-str_replace_all(x," ","_")
}
if(str_detect(x,"\u00D1")==TRUE){
x<-str_replace_all(x,"\u00D1","N")
}
x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.