Is it an HTTP status code?
See also
Other code detectors:
is_ca_postal_code(),
is_country_code(),
is_roman(),
is_uk_postcode(),
is_unix_time(),
is_us_state(),
is_version(),
is_zip_code()
Examples
is_http_status(c("200", "404", "099", "600", NA))
#> [1] TRUE TRUE FALSE FALSE NA