R/chkID.R

In ColoradoDemography/codemogLib:

#' chkID Returns a set of ids
#'
#' @param lvl the data level from input$level
#' @param fipslist the list of fips codes 
#' @param plName the placeName variable
#' @param ctyList the list of county names and information
#' @param plList the list of place names and information
#' @return a list of 6 items: ctyNum, ctyName, plNum, plName, multiCty and PlFilter
#' @export
#'
chkID <- function(lvl,fipslist,plName,ctyList,plList) {

  multiCty <- "F"
  PlFilter <- "T"

  if(lvl == "Municipalities") { #the id is the place
    if(length(fipslist) > 1) {  #setting ctyNum to largest portion for a multi-county city
      plNum  <- substr(unique(fipslist),3,7)
      plName <-  unique(plList[which(plList$placefips == as.numeric(plNum)),3])
      pCty   <- plList[which(plList$placefips == as.numeric(plNum)),]  # this is the list of counties
      pCtyf   <- str_pad(as.numeric(pCty$countyfips),3,pad="0")
      pCty$cty_Pop <- ifelse(is.na(pCty$cty_Pop),0,pCty$cty_Pop) #Fixing NA values
      ctyNum <- pCty[which(pCty$cty_Pop == max(pCty$cty_Pop)),1]  # The county with the most population
      ctyNum <- str_pad(ctyNum,3,pad="0")
      ctyName <- ctyList[which(ctyList$countyfips == as.numeric(ctyNum)),3]
      multiCty <- "T"   
    } else {
      plNum   <- substr(fipslist,3,7)
      plName  <-  plList[which(plList$placefips == as.numeric(plNum)),3]
      ctyNum  <- plList[which(plList$placefips == as.numeric(plNum)),1]
      ctyNum  <- str_pad(ctyNum,3,pad="0")
      pCtyf <- ctyNum
      ctyName <- ctyList[which(ctyList$countyfips == as.numeric(ctyNum)),3]
    }
    PopCheck <- as.numeric(plList[which(plList$placefips == as.numeric(plNum)),5])
    PopCheck <- as.numeric(unique(PopCheck))
    if(PopCheck > 200){
      PlFilter= "F"
    } 
  }    

  if(lvl == "Counties") {
    ctyName <- plName
    ctyNum <- substr(fipslist,3,5)
    pCtyf <- ctyNum
    plNum <- ""
    plName <- ""
    PlFilter= "F"
  }
  outList <- list("ctyList" = pCtyf, "ctyNum" = ctyNum, "ctyName" = ctyName, "plNum" = plNum, "plName" = plName, "multiCty" = multiCty,"PlFilter" = PlFilter)
  return(outList)
}