| path_out <- path("data-out", "voters", "voters.parquet") | path_out <- path("data-out", "voters", "voters.parquet") | ||||
| dir_create(path_dir(path_out)) | 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) | arrow::write_parquet(x, path_out) | ||||
| invisible(path_out) | invisible(path_out) |