Uninformative Error Messages

[program--]

fipio::as_fips(state = "FAKE")                                                                                                                                                            
#> Error in x[is.na(x)] <- y[!is.na(y)] : replacement has length zero

When as_fips() can't find any data, an error should be returned, but it should be informative.

[program--]

I'm making the decision that instead of throwing an error, fipio::as_fips() will return NA, so that its vectorization isn't impacted.