R/a.letter.R

In amvallone/DataSpa: Collect Spanish data at municipality level

# 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
}