diff --git a/updated_election_scraper_2024.R b/updated_election_scraper_2024.R index acc27e3..a547222 100644 --- a/updated_election_scraper_2024.R +++ b/updated_election_scraper_2024.R @@ -43,7 +43,7 @@ for (row_number in 1:nrow(scraper)) { wrow <- data.frame(c1 = "Other Write-Ins", c2 = NA, c3 = NA, c4 = NA, c5 = NA, c6 = NA, c7 = write_in_votes, c8 = NA) colnames(wrow) <- colnames(table) table <- table[1:3, ] %>% bind_rows(wrow) - } + } # Write the CSV write_csv(table, each_row$file_name)