Plusieurs substitutions en 1 coup

Bonjour,

Voici une liste de numéros de communes : Txt <- c('09814','12001','01120','01001','98025','99124','23178).
Dans cette liste, les vrais numéros des communes 98025 et 99124 sont 2A025 et 2B124 (Communes de Corse)
Pour leur restituer leurs vrais numéros, j'utilise la fonction gsub :
gsub("^98(...)$","2A\\1",Txt) dans le 1er cas
gsub("^99(...)$","2B\\1",Txt) dans le second.
Dans ces deux instructions, le paramètre \1 désigne les trois caractères qui ont matché dans la reconnaissance du texte, et qui sont restitués ensuite, préfixés par 2A ou 2B.

Je souhaiterais faire ces deux opérations en une seule fois, du genre : gsub("^9[8|9](...)$","2([A|B])\\1",Txt).
Cette instruction ne me donne pas le résultat souhaité, parce que j'obtiens 2([A|B])025 et 2([A|B])124.
En fait, je ne sais pas comment faire comprendre à la fonction gsub qu'il faut remplacer 98 par 2A et 99 par 2B.

Certes, je cherche un peu du poil aux oeufs ; mais quelqu'un saurait-il si une solution existe ?

Avec gsub tu ne peux remplacer que par des chaines de caractères ou par le contenu d'un groupe, il n'y a pas moyen de faire en sorte que si tel groupe est reconnu on remplace par tel chaine de caractère.

Je pense que tu n'as pas d'autre choix que d'appeler gsub plusieurs fois. Tu peux éventuellement créer une fonction contenant une boucle appelant gsub pour que ce soit moins moche (mais avec seulement 2 remplacement, ce n'est pas forcément la peine).

Ok, tant pis.
Je vais faire comme tu dis
Merci