如何在R语言中实现类似Python rstrip()的指定字符右侧截断功能？

这确实是trimws()的一个容易踩的小坑——它的第三个参数whitespace接受的是正则表达式的字符类，而非普通单个字符。所以直接传.的话，.在正则里代表“任意字符”，自然会把整个字符串都匹配替换掉，导致返回空字符串。

要实现类似Python string.rstrip(char)的功能，我们可以自己写一个简单的函数，利用正则表达式精准匹配末尾的指定字符：

rstrip <- function(x, chars) {
  # 转义正则表达式中的特殊字符（比如.、*、[]等）
  escaped_chars <- gsub("([.|()\\^{}+$*?]|\\[|\\])", "\\\\\\1", chars)
  # 构建匹配模式：匹配字符串末尾一个或多个指定字符
  pattern <- paste0("([", escaped_chars, "]+)$")
  # 将匹配到的末尾字符替换为空
  sub(pattern, "", x)
}

接下来测试你给出的几个用例，完全符合预期：

rstrip("nauris", "s")
[1] "nauri"
rstrip("nauris.", ".")
[1] "nauris"
rstrip("nauris....", ".")
[1] "nauris"
rstrip("stack", "c")
[1] "stack"

补充说明： #

• 函数里的转义步骤很关键，它能确保像.、*这类正则特殊字符被当作普通字符处理，不会引发意外的匹配结果。
• 如果你的使用场景只需要处理普通字母数字，也可以简化转义步骤，但保留转义会让函数的通用性更强。

内容的提问来源于stack exchange，提问作者hilssu