x <- "3 | 4 | 2 "
sub(".*\\|([^\\|]*)$", "\\1", x)