fork download
  1. awards <- c("Won 1 Oscar.",
  2. "Won 1 Oscar. Another 9 wins & 24 nominations.",
  3. "1 win and 2 nominations.",
  4. "2 wins & 3 nominations.",
  5. "Nominated for 2 Golden Globes. 1 more win & 2 nominations.",
  6. "4 wins & 1 nomination.")
  7.  
  8. sub(".*\\s([0-9]+)\\snomination.*$", "\\1", awards)
Success #stdin #stdout 0.2s 175424KB
stdin
Standard input is empty
stdout
[1] "Won 1 Oscar." "24"           "2"            "3"            "2"           
[6] "1"