Как удалить повторяющиеся символы в строке с помощью R?

Я хотел бы реализовать функцию с R, которая удаляет повторяющиеся символы в строке. Например, скажем, моя функция называется removeRS, поэтому предполагается, что она работает следующим образом:

  removeRS('Buenaaaaaaaaa Suerrrrte')
  Buena Suerte
  removeRS('Hoy estoy tristeeeeeee')
  Hoy estoy triste

Моя функция будет использоваться со строками, написанными на испанском языке, поэтому это не так по крайней мере правильно), чтобы найти слова, которые имеют более трех последовательных гласных. Не беспокойтесь о возможной тональности, стоящей за ними. Тем не менее, есть слова, которые могут иметь два последовательных согласных (особенно ll и rr), но мы могли бы пропустить это из нашей функции .

Таким образом, подводя итог, эта функция должна заменять буквы, встречающиеся не менее трех раз подряд, именно этой буквой.В одном из приведенных выше примеров aaaaaaaaaзаменяется на a.

Не могли бы вы дать мне какие-нибудь подсказки, чтобы выполнить эту задачу с помощью R?