R/state_to_abbreviation.R

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

Defines functions state_to_abbreviation

Documented in state_to_abbreviation

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