R/read_fac_info.R

In uclalawcovid19behindbars/behindbarstools: Tools for the UCLA Behind Bars Data Team

#' Read in UCLA Prison and Jail Facility Data
#'
#' Reads in facility metadata
#'
#' @param federal_only filter to only federal facilities
#' @return data frame with facility metadata
#'
#' @importFrom readr read_csv
#' @importFrom stringr str_c
#' @importFrom dplyr select
#'
#' @examples
#' read_fac_info(federal_only = TRUE)
#'
#' @export

read_fac_info <- function(federal_only = FALSE){
    FAC_DATA_LOC %>%
        read_csv(col_types = cols(
            Facility.ID = "d",
            State = "c",
            Name = "c",
            Description = "c",
            Security = "c",
            Age = "c",
            Gender = "c",
            Is.Different.Operator = "l",
            Different.Operator = "c",
            Population.Feb20 = "d",
            Capacity = "d",
            HIFLD.ID = "c",
            BJS.ID = "c",
            Source.Population.Feb20 = "c",
            Source.Capacity = "c",
            Address = "c",
            City = "c",
            Zipcode = "c",
            Latitude = "d",
            Longitude = "d",
            County = "c",
            County.FIPS = "c",
            Website = "c",
            Jurisdiction = "c",
            ICE.Field.Office = "c")) %>%
        select(Facility.ID, State, Name, Jurisdiction, Description, Security,
               Age, Gender, Is.Different.Operator, Different.Operator, Population.Feb20,
               Capacity, HIFLD.ID, BJS.ID, Source.Population.Feb20, Source.Capacity, Address,
               City, Zipcode, Latitude, Longitude, County, County.FIPS, Website, ICE.Field.Office) %>%
        `if`(
            federal_only,
            filter(., stringr::str_detect(.$Jurisdiction, "(?i)federal")),
            .)
}