긴 문자열의 첫 번째 일치하는 문자열 찾기 R

Question

긴 문자열의 벡터에서 첫 번째 일치하는 문자열을 찾으려고합니다. 나는 예를 들어 가지고 example_string <- 'LionabcdBear1231DogextKittyisananimalTurtleisslow'와 지금 matching_vector<- c('Turtle',Dog') 나는 이것이 우리가 예를 들어 문자열에서 볼 수있는 matching_vector의 첫 번째 서브 스트링으로는 '개'를 반환합니다 :

가 이미 pmatch(example_string,matching_vector)을 시도했지만 extKittyisananimalTurtleisslow LionabcdBear1231 이 개 그 작동하지 않습니다. 분명히 하위 문자열과 함께 작동하지 않기 때문에 ...

감사! 팀

Answer 1

우리는 라이브러리 (stringi)`시도 stringi

library(stringi) 
stri_match_first(example_string, regex = paste(matching_vector, collapse="|")) 

Answer 2

다음 해결 방법이 효과가 있습니까?

example_string <- 'LionabcdBear1231DogextKittyisananimalTurtleisslow' 
matching_vector<- c('Turtle','Dog') 
match_ids <- sapply(matching_vector, function(x) regexpr(x ,example_string)) 
result <- names(match_ids)[which.min(match_ids)] 
> result 
[1] "Dog"