| dir_create(path_dir(path_out)) | dir_create(path_dir(path_out)) | ||||
| x <- readr::read_tsv(path, col_types = voter_statewide_spec()) | 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") | |||||
| } | |||||
| arrow::write_parquet(x, path_out) | arrow::write_parquet(x, path_out) | ||||
| invisible(path_out) | invisible(path_out) |