R/abbreviation_to_state.R

In johnmyleswhite/abbReviations: Translates back-and-forth from common abbreviations.

Defines functions abbreviation_to_state

Documented in abbreviation_to_state

abbreviation_to_state <- function(abbreviation)
{
  data(mapping)
  state <- with(subset(mapping, Abbreviation == abbreviation), State)
  if (length(state) > 0)
  {
    return(state)
  }
  else
  {
    return(NA)
  }
}