How to extract substring in R [closed] - r

Question

Closed. This question needs to be more focused. It is not currently accepting answers.
Want to improve this question? Update the question so it focuses on one problem only by editing this post.
Closed 6 years ago.
Improve this question
I have a string like the below
x <- "Supplier will initially respond to High Priority incidents. Supplier will subsequently update EY every 60 minutes or at an interval EY specifies. Reporting and Response times will be capture in ServiceNow which, save in respect of manifest error, will be conclusive proof of the time period taken."
I want to extract 2 words after the word "every".
How this can be achieved in R?

Answer 1

We can use str_extract by using a regex workaround ((?<=every\\s)) followed by two words
library(stringr) #corrected the package here
unlist(str_extract_all(x, "(?<=every\\s)(\\w+\\s+\\w+)"))
#[1] "60 minutes"
Or using base R
regmatches(x, gregexpr("(?<=every\\s)(\\w+\\s+\\w+)", x, perl = TRUE))[[1]]
#[1] "60 minutes"

Answer 2

Something like this in base R,
Splitting every word of the string and then finding the index of occurrence of word every and then selecting next two words from that index.
wordsplit <- unlist(strsplit(x, " ", fixed = TRUE))
indx <- grep("\\bevery\\b", wordsplit)
wordsplit[(indx+1):(indx +2)]
#[1] "60" "minutes"
Or as #DavidArenburg suggested we can also use match instead of grep
wordsplit[match("every", wordsplit) + 1:2]