r - GNU R : How to remove repeated characters at the beginning and end of every word of a string?

Question

在 GNU R 中，我需要删除字符串中每个单词开头和结尾的重复字符。

如果我有输入

str <- "Tthis iss a splendiddd ddayyy"

输出应该是

"This is a splendid day"

有人知道怎么做吗？非常感谢您!

致以最良好的祝愿，埃里克

Answer 1

第一个 gsub 删除重复的前导字符，第二个删除尾随。第一个正则表达式匹配一个单词边界，后跟任何字符，后跟可能重复的相同字符。然后它用捕获组匹配的字符替换匹配项，即括号内的部分。忽略大写或小写。第二个对于尾随重复项的工作方式类似。

ss <- gsub("\\b(.)\\1+", "\\1", str, ignore.case = TRUE, perl = TRUE)
gsub("(.)\\1+\\b", "\\1", ss)
## [1] "This is a splendid day"