Get substring from string when substring is defined in vector

Question

Let's say I have a vector like this

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

and then I have a line like:

str <- "test"

How can I get "est" for a refund

+3

r

Ibi taher May 04 '17 at 20:53

2 answers

Simon jackson · Answer 1 · 2017-05-04T22:14:33+0000

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

And when multiple valid substrings appear:

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

TheBiro · Answer 2 · 2017-05-04T20:58:45+0000

which(sapply(foo, (function(x) grepl(x, str)))==T)