# Eliminar excepto cuando haya una palabra clave
# https://es.stackoverflow.com/q/130559/127
data <- c("3l hospital 11 esta a la vu3lt4")
data <- gsub("(hospital\\s+\\d+)|\\d+", "\\1", data, perl = T)
print(data)
IyBFbGltaW5hciBleGNlcHRvIGN1YW5kbyBoYXlhIHVuYSBwYWxhYnJhIGNsYXZlCiMgaHR0cHM6Ly9lcy5zdGFja292ZXJmbG93LmNvbS9xLzEzMDU1OS8xMjcKCmRhdGEgPC0gYygiM2wgaG9zcGl0YWwgMTEgZXN0YSBhIGxhIHZ1M2x0NCIpCgpkYXRhIDwtIGdzdWIoIihob3NwaXRhbFxccytcXGQrKXxcXGQrIiwgIlxcMSIsICBkYXRhLCBwZXJsID0gVCkKCgpwcmludChkYXRhKQ==