fork download
copy 
  1. input <- "11 Jackson, Adam L 1982-06-15 USA
  2. 2 Pearl, Sam R 1986-11-04 UK
  3. 5 Livingston, Steph LL 1983-12-12 USA
  4. 7 Thornton, Mark LR 1982-03-26 USA
  5. 10 Silver, John RED LL 1983-09-14 USA"
  6.  
  7. input <- gsub("(.*, \\w+) ((?:\\w){3,})(.*)", "\\1 \\3 \\2", input, TRUE)
  8. gsub("([0-9]\\s\\w+)\\n", "\\1 NA\n", input, TRUE)
Success #stdin #stdout 0.45s 79168KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "11 Jackson, Adam L 1982-06-15 USA NA\n2 Pearl, Sam R 1986-11-04 UK NA\n5 Livingston, Steph LL 1983-12-12 USA NA\n7 Thornton, Mark LR 1982-03-26 USA NA\n10 Silver, John  LL 1983-09-14 USA RED"
https://ideone.com/SLbOLT
language:
R (R 3.5.2)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!