r - 查找并标记匹配的括号对

Question

给定下面的嵌套括号字符串

a = "[[[][]]][[[][][]]]"

我试图在 a 中找到一对左括号和右括号，并用公共(public) ID 标记它们的位置。例如，我正在尝试创建一个 ID 向量，看起来像这样

b = c(1,2,3,3,4,4,2,1,5,6,7,7,8,8,9,9,6,5)

例如这里向量b中的1和2对应一对括号等等..

 [[[][]]][[[][][]]]
 1      1

 [[[][]]][[[][][]]]
  2    2

非常感谢在这方面的任何意见。

Answer 1

很丑

a <- "[[[][]]][[[][][]]]"
s <- unlist(strsplit(a, ''))
i <- cumsum(s == '[') * (s == '[')

while (any(idx <- i == 0)) {
  ii <- min(which(idx))
  jj <- table(i[1:ii])
  i[ii] <- max(as.integer(names(jj[jj < 2])))
}
i
# [1] 1 2 3 3 4 4 2 1 5 6 7 7 8 8 9 9 6 5