R/get_state_fips.R

In StateOfCalifornia/CalCAT: A tool for understanding COVID-19 by the State of California

#' @title FUNCTION_TITLE
#' @description FUNCTION_DESCRIPTION
#' @param State PARAM_DESCRIPTION, Default: state_name
#' @param type PARAM_DESCRIPTION, Default: 'integer'
#' @return OUTPUT_DESCRIPTION
#' @details DETAILS
#' @examples 
#' \dontrun{
#' if(interactive()){
#'  #EXAMPLE1
#'  }
#' }
#' @rdname get_state_fips
#' @export 
get_state_fips <- function(State = state_name, type = "integer"){
  states <- data.table(state = c("Alabama",
                                 "Alaska",
                                 "Arizona",
                                 "Arkansas",
                                 "California",
                                 "Colorado",
                                 "Connecticut",
                                 "Delaware",
                                 "District of Columbia",
                                 "Florida",
                                 "Georgia",
                                 "Hawaii",
                                 "Idaho",
                                 "Illinois",
                                 "Indiana",
                                 "Iowa",
                                 "Kansas",
                                 "Kentucky",
                                 "Louisiana",
                                 "Maine",
                                 "Maryland",
                                 "Massachusetts",
                                 "Michigan",
                                 "Minnesota",
                                 "Mississippi",
                                 "Missouri",
                                 "Montana",
                                 "Nebraska",
                                 "Nevada",
                                 "New Hampshire", 
                                 "New Jersey",
                                 "New Mexico",
                                 "New York",
                                 "North Carolina",
                                 "North Dakota",
                                 "Ohio",
                                 "Oklahoma", 
                                 "Oregon",
                                 "Pennsylvania",
                                 "Rhode Island",
                                 "South Carolina",
                                 "South Dakota",
                                 "Tennessee",
                                 "Texas",
                                 "Utah",
                                 "Vermont",
                                 "Virginia",
                                 "Washington", 
                                 "West Virginia",
                                 "Wisconsin",
                                 "Wyoming"), 
                    fips = c(
                      1,
                      2,
                      4,
                      5,
                      6,
                      8,
                      9,
                      10,
                      11,
                      12,
                      13,
                      15,
                      16,
                      17,
                      18,
                      19,
                      20,
                      21,
                      22,
                      23,
                      24,
                      25,
                      26,
                      27,
                      28,
                      29,
                      30,
                      31,
                      32,
                      33,
                      34,
                      35,
                      36,
                      37,
                      38,
                      39,
                      40,
                      41,
                      42,
                      44,
                      45,
                      46,
                      47,
                      48,
                      49,
                      50,
                      51,
                      53,
                      54,
                      55,
                      56
                    ))

  
  num <-  states$fips[which(states$state == State)]
  char <- ifelse(num<10,as.character(paste0("0",num)),as.character(num))
  
  return({
    if(type == "integer"){
      as.integer(num)
    } else if(type == "character"){
      as.character(char)
    } else {errorCondition("Please select type = 'integer' or 'character'")}
    
      })
  
}