проверить, все ли слова присутствуют в предложении

Question

Я пытаюсь получить выходные данные от words_check, только если все слова в переменной 'words' присутствуют в word_check.

Я пытаюсь получить выходные данные из word_check.

Мой код ниже не возвращает никакого значения. Пожалуйста, помогите!

words <- "battery on key issue"

word_check <- c("battery on","key issue","battery on key issue")

pr_wd <- word_check[all(strsplit(word_check," ") %in% strsplit(words," "))] 

Ожидаемый результат:

"battery on key issue"

Answer 1

Я думаю, что это работает, но было бы неплохо иметь еще пару примеров для тестирования.

word_check[unlist(Map(strsplit(words," "), strsplit(word_check," "), f = function(x, y) all(x %in% y)))]
#[1] "battery on key issue"