data-raw/county_pres_votes.R

## code to prepare `county_pres_votes` dataset goes here
county_pres_votes <- read.csv("V:/Sifan/R/xwalk/county vote history.csv")

library(dplyr)
library(stringr)

county_pres_votes <- county_pres_votes%>%
  mutate(stco_code = str_pad(fip, 5, "left", pad = "0"))

usethis::use_data(county_pres_votes, overwrite = T)
BrookingsInstitution/metro-data-warehouse documentation built on April 25, 2021, 2:11 p.m.