regex to replace words with more than two consecutive characters

Question

How can I detect the presence of more than two consecutive characters in a word and remove that word?

I seem to be able to do it like this:

# example         


        

Answer 1

An other possibility :

mystring[grepl("(.{1})\\1{2,}", mystring, perl=T)] <- ""