Использование str_extract с perl для извлечения подстрок

Question

Я пытаюсь использовать perl с stringr, чтобы получить символы между двумя словами, но приведенный мной пример не работает и выдает следующее сообщение об ошибке:

x = "PRODUCT colgate good but not good OKAY"
library(stringr)
str_extract(string = x, pattern = perl("(?<=PRODUCT).*(?=OKAY)"))

Ошибка в perl ("(? <= PRODUCT). * (? = OKAY)"): не удалось найти функцию "perl" </p>

Я ожидаю, что результат будет: "Колгейт хорошо, но не хорошо"

Answer 1

Нам не нужна perl упаковка (используется stringr версия - ‘1.4.0’)

library(stringr)
str_extract(string = x, pattern = "(?<=PRODUCT ).*(?= OKAY)")
#[1] "colgate good but not good"