Я пытаюсь получить некоторые результаты выборов с веб-сайта politco, используя rvest.

http://www.politico.com/2016-election/results/map/president/wisconsin/

Я не мог вытащить все данные на странице сразу, поэтому я выбрал подход на уровне округа. В каждом округе есть уникальный селектор css (например, округ Адамс: '#countyAdams .results-table'). Поэтому я взял все названия округов из других мест и создал быстрый цикл (да, я знаю, что циклы - плохая практика в R, но я ожидал, что этот метод займет у меня около 3 минут).

Захватите URL

wiscoSixteen <- read_html("http://www.politico.com/2016-election/results/map/president/wisconsin")

Создайте пустой data.frame (и я не заранее определил столбцы)

stateDf <- NULL

Получить список округов (это еще не все, но чтобы добраться до точки рутинных перерывов, нам не нужны все 70 округов)

wiscoCounties <- c("Adams", "Ashland", "Barron", "Bayfield", "Brown", "Buffalo", "Burnett", "Calumet", "Chippewa", "Clark", "Columbia", "Crawford", "Dane", "Dodge", "Door", "Douglas", "Dunn", "Eau Claire", "Florence", "Fond du Lac", "Forest", "Grant", "Green", "Green Lake", "Iowa", "Iron", "Jackson", "Jefferson", "Juneau")

Мой цикл for:

for (i in 1:length(wiscoCounties)){

    #Pull out the i'th county name and paste it in a string
    wiscoResult <- wiscoSixteen %>% html_node(paste("#county"," .results-table", sep=wiscoCounties[i])) %>% html_table()

    #add a column for the county name so I can ID later
    wiscoResult[,4] <- wiscoCounties[i]

    #then rbind 
    stateDf <- rbind(stateDf, wiscoResult)
}

Когда он проходит через 10 округ, он останавливается и возвращает «Ошибка: нет совпадений».

Не могу найти ничего уникального в «Колумбии», 11 округе. В растерянности за то, что происходит. Я уверен, что это что-то глупое, как это обычно бывает. Любая помощь приветствуется.