如何在交替中使用向量列表(正则表达式)

Question

是否可以将字符串向量解析为正则表达式中的替换元素？例如：

pattern <- "^This\\s(*alternation element*)\\srocks\\."
Animals <- c("cow","dog","cat")

因此，如果我将“动物”解析为正则表达式，它将导致：

pattern <- "^This\\s(*cow|dog|cat*)\\srocks\\."

它基本上应该像or1()包中的rebus那样工作。

Answer 1

您可以使用paste0生成正则表达式：

paste0('^This\\s(', paste0(Animals, collapse = "|"), ')\\ssrocks\\.')
#[1] "^This\\s(cow|dog|cat)\\ssrocks\\."

注意，在R中，您需要使用双反斜杠(\\)。

Answer 2

我们可以使用sprintf

sprintf("^Thi\\s(%s)\\ssrocks\\.", paste(Animals, collapse="|"))
#[1] "^Thi\\s(cow|dog|cat)\\ssrocks\\."