# 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+(*SKIP)(*FAIL)|\\d+", "", data, perl = T)
print(data)
IyBFbGltaW5hciBleGNlcHRvIGN1YW5kbyBoYXlhIHVuYSBwYWxhYnJhIGNsYXZlCiMgaHR0cHM6Ly9lcy5zdGFja292ZXJmbG93LmNvbS9xLzEzMDU1OS8xMjcKCmRhdGEgPC0gYygiM2wgaG9zcGl0YWwgMTEgZXN0YSBhIGxhIHZ1M2x0NCIpCgpkYXRhIDwtIGdzdWIoImhvc3BpdGFsXFxzK1xcZCsoKlNLSVApKCpGQUlMKXxcXGQrIiwgIiIsICBkYXRhLCBwZXJsID0gVCkKCgpwcmludChkYXRhKQ==