R 仅移除多个支架

我有这张表格里的字符串

"[1425]", "[[12545]]", "2423", "((125))", "[[[1543]]]", "(1432)"

我尝试了解决方案，但对这个案例不起作用。我需要

"[1425]", "[12545]", "2423", "(125)", "[1543]", "(1432)" 

即，移除存在的多个支架

试试看：

library(stringr)
v1 <- c("[1425]", "[[12545]]", "2423", "((125))", "[[[1543]]]", "(1432)")

str_extract(v1, "\\D?[0-9]+\\D?")
#[1] "[1425]"  "[12545]" "2423"    "(125)"   "[1543]"  "(1432)" 

库（stringr）
v1最难读答案奖授予：

x <- c("[1425]", "[[12545]]", "2423", "((125))", "[[[1543]]]", "(1432)")
gsub("(\\[|\\]|\\(|\\))\\1+","\\1",x)
#[1] "[1425]"  "[12545]" "2423"    "(125)"   "[1543]"  "(1432)"

x