Remova tudo depois de um personagem, mas mantenha-o
Digamos que eu tenho uma string que diz"45216 Walnut Avenue Mary's Bake Shop". Eu quero remover tudo depois da palavraAvenue, mas gostaria que a avenida permanecesse. Como é que isso funciona?
Eu tentei o seguinte sem sorte:
a <- "45216 Walnut Avenue Mary's Bake Shop"
a <- gsub("Avenue.*$", "", a)
[1] "45216 Walnut "