Scrape current MPs of the lower chamber of the Algerian parliament: http://www.apn.dz/ (mirrors this scraper: https://github.com/tmtmtmtm/algeria-assemblee/blob/master/scraper.rb -- at the exception that it won't encode constituencies as OCD entities)

01-dz.r

library(dplyr)
library(rvest)

r = "http://www.apn.dz"

n <- function(h, g) {
  
  h = html_nodes(h, ".listing-summary")
  data_frame(
    id = html_attr(h, "data-link-id"),
    name = html_nodes(h, "h3") %>% html_text,
    type = html_nodes(h, ".category a") %>% html_text,
    sex = ifelse(g == "Femme", "F", "M"),
    party = html_nodes(h, "#field_31 span:nth-child(2)") %>% html_text,
    constituency = html_nodes(h, ".fields .row0:nth-child(2) span:nth-child(2)") %>% html_text,
    url = html_nodes(h, "h3 a") %>% html_attr("href"),
    photo = html_nodes(h, "img") %>% html_attr("src")
  )
  
}

for (g in c("Femme", "Homme")) {
  
  cat(g)
  h = html(paste0(r, "/fr/les-membres?sort=link_name&task=listall&cf38=", g), httr::user_agent("abc"))
  d = nfo(h, g)
  p = html_node(h, xpath = "//a[@title='Suivant']/@href")
  
  while (!is.null(p)) {
    
    cat(".")
    h = html(paste0(r, p), httr::user_agent("abc"))
    d = rbind(d, nfo(h, g))
    p = html_node(h, xpath = "//a[@title='Suivant']/@href")
    
  }
  
  cat("\n")
  
}

d$name = gsub("^\\s|\\s$", "", gsub("\\s+", " ", d$name))
d$constituency = gsub("\\s?-\\s", "-", gsub("\\t", "", d$constituency))
d$url = paste0(r, d$url)

write.csv(arrange(d, type, name), "dz.csv", row.names = FALSE)

02-dz.csv