Uma alternativa é:
exemplo <- c("Rua Pajé, 30, apto 44", "Av. Brasil,55, blocoB")
gsub("^([^,]+,[^,]+),.*$", "\\1", exemplo)
Eu uso os marcadores ^
e $
, que são respectivamente o início e fim da string.
Depois eu uso [^,]+
(um ou mais caracteres que não sejam a vírgula), seguido de vírgula, seguido por mais caracteres que não sejam a vírgula. E coloco tudo isso dentro de parênteses para formar um grupo de captura.
Depois temos a segunda vírgula, seguido de .*
(zero ou mais caracteres), até o final da string ($
).
No parâmetro de substituição eu uso \\1
, que corresponde ao que foi capturado pelos parênteses (no caso, tudo até antes da segunda da vírgula). Como é o primeiro par de parênteses, então eles correspondem ao primeiro grupo de captura, daí o número 1
em "\\1"
. E como dentro desses parênteses tem tudo até antes da segunda vírgula, então \\1
é exatamente o trecho que você quer. O resultado é:
[1] "Rua Pajé, 30" "Av. Brasil,55"
Veja rodando no Ideone.com.