删除最后一个字符,除非前面有特定字符

Question

一直使用R,但我的正则表达技能是新手等级.我试图删除"s",如果它是单词中的最后一个字符,除非前面有"i"或"s".样品...

dfx <- c("class","guests","trips","sassy","basis","fruits")
dfx <- sub("s$","",dfx)
View(dfx)

任何例子或指导将不胜感激.

Answer 1

你可以使用lookarounds.我不是最好的,但请查看本教程以了解更多信息.例如, (?<!s)s将匹配一个前面没有"s"的"s".请注意,您必须设置perl=T这些在R中工作.

sub("(?<!s|i)s$","",dfx,perl = T)
# [1] "class" "guest" "trip"  "sassy" "basis" "fruit"