fork download
  1. ss <- c('jobs?search=term1&location=&distance=10+page=2','jobs?search=term1+term2&location=ca&distance=30','jobs?search=term1+term2+term3&location=nyc&distance=25')
  2. results <- regmatches(ss, regexec("[&?]search=([^&+]+)(?:&|$)",ss))
  3. unlist(results)[2]
Success #stdin #stdout 0.16s 178496KB
stdin
Standard input is empty
stdout
[1] "term1"