vec <- c("19980213", "19980214", "19980215", "19980216","19980217", "iffi","geometry", "date_consid")
grep("^(\\d{8}|date_consid)$", vec, value=TRUE, invert=TRUE)
dmVjIDwtIGMoIjE5OTgwMjEzIiwgIjE5OTgwMjE0IiwgIjE5OTgwMjE1IiwgIjE5OTgwMjE2IiwiMTk5ODAyMTciLCAiaWZmaSIsImdlb21ldHJ5IiwgImRhdGVfY29uc2lkIikKZ3JlcCgiXihcXGR7OH18ZGF0ZV9jb25zaWQpJCIsIHZlYywgdmFsdWU9VFJVRSwgaW52ZXJ0PVRSVUUp