Estou procurando uma expressão regular para capturar todos os dígitos nos 7 primeiros caracteres de uma string.

Esta cadeia tem 12 caracteres:

A12B345CD678

Eu gostaria de removerA eB somente porque estão dentro dos 7 primeiros caracteres (A12B345) e pegue

12345CD678

Então oCD678 não deve ser tocado. Minha solução atual em R:

paste(paste(str_extract_all(substr("A12B345CD678",1,7), "[0-9]+")[[1]],collapse=""),substr("A12B345CD678",8,nchar("A12B345CD678")),sep="‌​") 

Parece muito complicado. Dividi a sequência em 7, conforme descrito, identifiquei os dígitos nos 7 primeiros caracteres e vincule-a ao restante da sequência.

Procurando uma resposta geral, minha solução atual é dividir os 7 primeiros caracteres e apenas corresponder a todos os dígitos nessa sub-string.

Qualquer ajuda apreciada.