| @@ -16,10 +16,7 @@ voter_statewide_convert_parquet <- function(path) { | |||
| path_out <- path("data-out", "voters", "voters.parquet") | |||
| dir_create(path_dir(path_out)) | |||
| x <- readr::read_tsv(path, col_types = voter_statewide_spec()) | |||
| for (col in c("res_street_address", "mail_addr1")) { | |||
| x[[col]] <- iconv(x[[col]], "UTF-8", "UTF-8") | |||
| } | |||
| x <- readr::read_tsv(path, col_types = voter_statewide_spec(), locale = locale(encoding = "latin1")) | |||
| arrow::write_parquet(x, path_out) | |||
| invisible(path_out) | |||