x <- c("aa-bbb-cccc", "aa-vvv-vv", "aa-ddd") sub("^([^-]*-[^-]*).*", "\\1", x)
Standard input is empty
[1] "aa-bbb" "aa-vvv" "aa-ddd"
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!