fork download
  1. MWE <- list("Argentina -2.0 1.4", "G20 6.9 0.7", "United Kingdom 1.3 2.3", "EU28 6.6 2.8")
  2. MWE_1 <- gsub("^([A-Za-z]+(?: [A-Za-z]+)*|G20|EU28)\\b.*$", "\\1",MWE)
  3. MWE_1
Success #stdin #stdout 0.23s 39124KB
stdin
Standard input is empty
stdout
[1] "Argentina"      "G20"            "United Kingdom" "EU28"