psobczyk

# Files with data come from https://wybory.gov.pl/sejmsenat2019/pl/dane_w_arkuszach

require(dplyr)
require(magrittr)
require(tidyr)
require(broom)
require(ggparliament)

# Sejm elections. Could void votes affect results?

psobczyk

library(xml2)
library(rvest)

doc <- read_html(x = "path_to_xml_file")

threads <- xml_find_all(doc, ".//thread")

old_links <- gsub(".* (http.*)", "\\1", xml_text(xml_find_all(threads, xpath = ".//id")))
old_titles <- xml_text(xml_find_all(threads, xpath = ".//title"))