library(MazamaSpatialUtils)
US_stateNameToCode("Washington")
US_stateNameToFIPS("Washington")
postalCodes <- sample(US_stateCodes$stateCode, 30)
data.frame(
name = US_stateCodeToName(postalCodes),
code = postalCodes,
FIPS = US_stateCodeToFIPS(postalCodes)
)
Run the code above in your browser using DataLab