gsub e pad dentro de um parêntese

Eu tenho vetor assim:

x <- c("20(0.23)", "15(0.2)", "16(0.09)")

e eu não quero mexer com os números do lado de fora dos parênteses, mas quero remover o zero inicial dos números e fazer com que tudo tenha 2 dígitos. A saída será semelhante a:

"20(.23)", "15(.20)", "16(.09)"

Informação útil:

Eu posso remover o zero inicial e reter 2 dígitos usando a função abaixo tirada de:LIGAÇÃO

numformat <- function(val) { sub("^(-?)0.", "\\1.", sprintf("%.2f", val)) }

numformat(c(0.2, 0.26))
#[1] ".20" ".26"

eu seigsub pode ser usado mas eu não sei como. Eu vou fornecer umstrsplit resposta, mas isso é hackish na melhor das hipóteses.

questionAnswers(4)

yourAnswerToTheQuestion