x <- "3 | 4 | 2 "sub(".*\\|([^\\|]*)$", "\\1", x)
Standard input is empty
[1] " 2 "
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!