Ideone.com

fork download

copy

x <- c('/name12/?ad_2','/name13/?ad_3','/name14/?ad_4')
sub("(\\?ad_)[0-9]+$", "\\1", x)
sub("_[0-9]+$", "_", x)

Success #stdin #stdout 0.22s 60752KB

stdin

copy

Standard input is empty

stdout

copy

[1] "/name12/?ad_" "/name13/?ad_" "/name14/?ad_"
[1] "/name12/?ad_" "/name13/?ad_" "/name14/?ad_"

https://ideone.com/6RjQSu

language:

R (R 3.5.2)

created:

visibility:

secret

Share or Embed source code

The brand new service which powers Ideone!

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