Row split based on row vector in R

Question

I have the following line and vector:

temp = "EarthMars Venus & Saturn PlanetsJupiter"

searchTerms = c("Earth", "Jupiter", "Mars", "Venus & Saturn Planets", "Neptune")

I want to split the "temp" based on the strings in the "searchTerms" to get the following:

result = c("Earth", "Mars", "Venus & Saturn Planets", "Jupiter") 

Thanks for the help!

Answer 1

Using the package stringr, you can do:

library(stringr)
result = unlist(str_extract_all(temp,searchTerms))

[1] "Earth"          "Jupiter"         "Mars"           "Venus & Saturn Planets"

Answer 2

One of the options, similar to this message ( R split on a splitter, contains a splitter ):

searchStr <- paste0(searchTerms, collapse = "|")
unlist(strsplit(temp, paste0("(?<=",searchStr,")"), perl = T))

[1] "Earth" "Mars"  " Venus & Saturn Planets" "Jupiter"   

Answer 3

Another one-layer option with basic features:

result <- unlist(lapply(searchTerms, function(x) regmatches(temp,regexpr(x,temp))))