fork download
copy 
  1.  x <- c("aa-bbb-cccc", "aa-vvv-vv", "aa-ddd")
  2.  sub("^([^-]*-[^-]*).*", "\\1", x)
Success #stdin #stdout 0.23s 60752KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "aa-bbb" "aa-vvv" "aa-ddd"
https://ideone.com/MPfE0T
language:
R (R 3.5.2)
created:
7 years ago
visibility:
secret

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!