fork download
  1. x <- c("D. Rodman makes 2-pt layup (assist by L. Longley)",
  2. "M. Jordan misses 2-pt jump shot from 15 ft")
  3. sub("^(.*?)\\s+(?:misses|makes)\\b.*", "\\1", x)
Success #stdin #stdout 0.28s 39220KB
stdin
Standard input is empty
stdout
[1] "D. Rodman" "M. Jordan"