Extraire une chaîne de mots entre deux mots dans la R

J'ai la chaîne suivante : "PRODUCT colgate good but not goodOKAY"

Je veux extraire tous les mots entre PRODUCT et OKAY

OriginalL'auteur gyaanseeker | 2015-02-01