Ideone.com

fork download

copy

x <- "[abc], [def] abc,+def abc,def"
reg <- "][^[]*\\[(*SKIP)(*F)|,(?!\\+)"
strsplit(x, reg, perl=TRUE)
gsub(reg, "@", x, perl=TRUE)

Success #stdin #stdout 0.18s 183680KB

stdin

copy

Standard input is empty

stdout

copy

[[1]]
[1] "[abc], [def] abc,+def abc" "def"                      

[1] "[abc], [def] abc,+def abc@def"

https://ideone.com/SQfCJD

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!