I have a string that looks like the following:
x <- "01(01)121210(01)0001"
I want to split this into a vector so that i get the following:
[1] "0" "1" "(01)" "1" "2" "1" "2" "1" "0" "(01)" "0" "0" "0" "1"
The (|) could be [|] or {|} and the number of digits between the brackets can be 2 or more.
I've been trying to do this by separating on the brackets first:
unlist(strsplit(x, "(?<=[\\]\\)\\}])", perl=T))
[1] "01(01)" "121210(01)" "0001"
or unlist(strsplit(x, "(?<=[\\[\\(\\{])", perl=T))
[1] "01(" "01)121210(" "01)0001"
but I can't find a way to combine the two together. Then, I was hoping to split the elements not containing the brackets.
I'd be really grateful if someone can help me out with this or know of a more elegant way to do this.
Many thanks!
This is another way:
unlist(strsplit(x, '\\([^)]*\\)(*SKIP)(*F)|(?=)', perl=T))
# [1] "0" "1" "(01)" "1" "2" "1" "2" "1" "0" "(01)" "0" "0" "0" "1"
\\([^)]*\\) matches anything in parentheses, and (*SKIP)(*F) tells the regular expression engine to fail on this pattern and if it finds that pattern in the string, do not re-test that part of the string using the alternative pattern on the other side of the |. The pattern on the other side of the | is (?=), and this matches the space between characters.