如何在R中找到并标记括号对

给定以下嵌套括号字符串

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

我试图找到一对开括号并用通用ID标记其位置。例如,我正在尝试创建一个看起来像这样的ID向量

a = "[[[][]]][[[][][]]]"
b = c(1,2,3,3,4,4,2,1,5,6,7,7,8,8,9,9,6,5)

For example, here 1 and 2 in the vector b is corresponding to the pair of brackets and so on..

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

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

非常感谢在这方面的任何投入。