data-raw/download_NY-2018.R

In kuriwaki/ccesMRPprep: Functions and Data to Prepare CCES data for MRP

library(ccesMRPprep)

elec_NY <- cd_info_2018 %>%
  filter(str_detect(cd, "NY")) %>%
  select(-year)

cc18_NY_full <- get_cces_dataverse("cumulative", year_subset = 2018) %>%
  ccc_std_demographics() %>%
  filter(st == "NY")

cc18_NY <- cc18_NY_full %>%
  mutate(female = as.numeric(gender == 2)) %>%
  select(year, case_id, state:cd, county_fips,
         gender, female, age, race, hispanic, educ, faminc, marstat, newsint,
         matches("^pid"),
         vv_turnout_gvm, voted_pres_16,
         matches("(intent|voted)_[.+]_party")) %>%
  mutate(across(where(is.labelled), as_factor))


usethis::use_data(cc18_NY, overwrite = TRUE)
usethis::use_data(elec_NY, overwrite = TRUE)