在向量中定义子字符串时从字符串获取子字符串

Question

假设我有一个像这样的矢量

foo <- c('est','bel','cat')

然后我有一个像这样的字符串：

str <- "test"

如何让“est”返回

Answer 1

library(stringr)
foo[str_detect(str, foo)]
#> [1] "est"

当出现多个有效的子串时：

foo <- c('est','bel','cat', 'tes')
foo[str_detect(str, foo)]
#> [1] "est" "tes"