R strsplit with multiple unordered split arguments?

Question

Given a character string

test_1<-\"abc def,ghi klm\"
test_2<-\"abc, def ghi klm\"

I wish to obtain

\"abc\"
\"def\"
\"         


        

Answer 1

 test_1<-"abc def,ghi klm"
 test_2<-"abc, def ghi klm"
 key_words <- c("abc","def","ghi")
 matches <- str_c(key_words, collapse ="|")
 str_extract_all(test_1, matches)
 str_extract_all(test_2, matches)