R/get.fips.ST.R

In ejanalysis/ejanalysis: Tools for Environmental Justice (EJ) Analysis

#' @title Get State FIPS from block or block group FIPS
#'
#' @description Extract partial FIPS code from longer FIPS code
#' @details For information on FIPS codes, see <http://www.census.gov/geo/reference/ansi.html>,
#'   and also see <https://www.census.gov/geo/reference/geoidentifiers.html>
#'   It does not check to see if the codes are valid other than counting how many characters each has.
#' @param fips Vector of one or more elements, character class, 12 or 15 characters long (block group or block), required.
#' @param clean Does not use clean.fips() if FALSE, which helps if the countiesall or other list is not yet updated, for example and lacks some new FIPS code
#' @return Returns a vector of one or more character elements, same lengths as fips
#' @seealso [clean.fips()]
#' @examples
#' samplefips <- c("011030001003", "011030001003001", 02610, 11030001003001, 35, 1,
#'  NA, 'invalidtext', '02')
#' get.fips.st(samplefips)
#' @export
get.fips.st <- function(fips, clean=TRUE) {
  if (clean) {fips <- clean.fips(fips)} # checks length, NAs, infers missing leading zero, warns
  fips[nchar(fips) < 2] <- NA
  return(as.character(substr(fips, 1, 2)))
}