字符串中的R gsub单词，以前缀开头而不删除前缀

Question

我试图用gsub替换存储在变量中的另一个单词（包含在单引号中，即以单引号开头和结尾）中的一个单词。 我想保留单引号。

所以，如果我从这个开始：

a <- "I am going to buy an 'apple' and a 'apple'"
repl <- "pear"

我希望它最终成为：

"I am going to buy an 'pear' and a 'pear'"

我在下面尝试了一些类似的操作，但是它似乎只替换了'apple'和单引号，而我想保留单引号。

a2 <- gsub("\'apple\'", repl, a)

Answer 1

您可以在与Perl-compatible regexps使用?<=后向和?=前瞻语法，如?gsub ，在这种情况下，单引号就像边界一样，但不会被替换：

gsub("(?<=\')apple(?=\')", repl, a, perl = T)
# [1] "I am going to buy an 'pear' and a 'pear'"

Answer 2

使用gsubfn

library(gsubfn)
gsubfn("'([^']+)'", paste0("'", repl, "'"), a)
#[1] "I am going to buy an 'pear' and a 'pear'"