Is it a US ZIP code?
See also
Other code detectors:
is_ca_postal_code(),
is_country_code(),
is_http_status(),
is_roman(),
is_uk_postcode(),
is_unix_time(),
is_us_state(),
is_version()
Examples
is_zip_code(c("98052", "98052-6399", "1234", NA))
#> [1] TRUE TRUE FALSE NA